viết chương trình nhập mảng 1 chiều gồm n phần tử và in ra màn hình các số lẻ trong mảng

program oken;
uses crt;
var a: array [1..100] of integer;
    n,i:integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                end;
        write('cac so le cua mang: ');
        for i:=1 to n do
                if (a[i] mod 2=1) then
                        write(a[i],' ');
        readln;
end.

uses crt;
var A:array[1..1000] of integer;
    i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   write('Cac so le trong mang la: ');
   for i:=1 to n do if A[i] mod 2 = 1 then write(A[i]:4);
   readln
end.