... Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 (*$I-*)reset(f);if IOResult<>0 thenbeginwriteln('Khong co tap tin ',st);halt(0); end; writeln; ... 3:elsewrite('Chon sai ? ');end; until chon=3;end. Hết 5/5Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 Đáp ÁnHỆ: Trung Học Phổ ThôngThời gian: 150 phútBài 1: Viết chương trìnha) Nhập vào ... write('b[',i,']= '); readln(b[i]); end; if (n<m) then1/5KQ: 10 7 16 5 3Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 Program Bai2;var x,s,tmp: real; n,i,dau: integer;begin repeat write('Nhap...