Viết chương trình nhập vào mảng A gồm N phần tử thuộc kiểu Nguyên. Viết hàm và thủ tục kiểm tra số lẻ của mảng A. hãy In ra các phần tử là số lẻ của mảng A

uses crt;

var a: array[1..100] of integer;

i,n: integer;

procedure nhap;

var a: array[1..100] of integer;

i,n: integer;

begin

write ('nhap so luong PT: ');  readln (n);

for i:=1 to n do

begin

write ('nhap PT thu ',i,': ');  readln (a[i]);

end;

end;       {chỗ này 2 cái end; luôn nha}

function kt(n: integer): integer;

begin

if n mod 2=0 then kt:=false

else if n mod 2<>0 then kt:=true;

end;

begin

clrscr;

nhap;

writeln ('cac so le trong day: ');

for i:=1 to n do if kt(a[i])=true then write (a[i],'  ');

readln;

end.

program so_le;

uses crt;

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

      n,i:integer;

{---Ham-so-le---}

function ktsl(k:integer):boolean;

begin

      if k mod 2=1 then ktsl:=true else ktsl:=false;

end;

{---Chuong-trinh-chinh---}

BEGIN

      clrscr;

      write('Nhap N: ');  readln(n);

      for i:=1 to n do

            begin

                  write('A[',i,']= ');  readln(A[i]);

            end;

      for i:=1 to n do

            if ktsl(A[i]) then write(A[i],' ');

      readln;

end.