Viết chương trình đọc dữ liệu từ tệp dữ liệu 11A.TXT xuất các số chẳn ra màn hình.

program sochan;

uses crt;

var f:text;

      A:array[1..1000] of integer;

      n,i:integer;

begin

     clrscr;

     Assign(f,’Lop_11A.TXT’);  reset(f);

     readln(f,n);

     for i:=1 to n do

          begin

               readln(f,A[i]);

               if A[i] mod 2=0 then write(A[i],’ ‘);

          end;

     close(f);

     readln;

end.