Viết chương trình đọc dữ liệu từ tệp dữ liệu 11A.TXT, có cấu trúc gồm các số nguyên mỗi số trên 1 hàng. Xuất ra màn hình các số lẻ.

program sole;

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=1 then write(A[i],’ ‘);

          end;

     close(f);

     readln;

end.