... Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 Đáp Án HỆ: Trung Học Phổ Thông Thời gian: 150 phút Bài 1 : Viết chương trình a) Nhập vào 2 số nguyên ... write('Tap tap tin: '); readln(st); assign(f,st); 4/5 Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 (*$I-*) reset(f); if IOResult<>0 then begin writeln('Khong co tap tin ',st); ... ten:string[10]; end; var 3/5 Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 f: file of hs; a:hs; nhap:char; chon:byte; st:string; procedure nhap_hoso; begin write(' Ten tap tin: '); readln(st); assign(f,st);...