Nhập 1 dãy số nguyên N <_ 20. Ktra xem phần tử đó có bằng 20 hay không? ( pascal)

uses crt;

var

n,i,dem:integer;

a:array[1..20] of integer;

function ngto(n:integer):boolean;

var i:integer; ok:boolean;

begin

if n<2 then ok:=false;

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then ok:=false else ok:=true;

ngto:=ok;

end;

begin

clrscr;

write('nhap so phan tu cua day: '); readln(n);

for i:=1 to n do

begin

write('nhap phan tu thu [',i,']= ]); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if ngto(a[i]) then inc(dem);

write("trong day co ',dem,' phan tu la so nguyen to');

readln

end.

program ktra;

var

       N,i,dem:integer;

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

begin

      repeat

          write('Nhap so phan tu: '); readln(n);

      until n<=20;

      dem:=0;

      for i:=1 to n do

      Begin

           Readln(A[i]);

           If A[i]=20 then dem:=dem+1;

    End;

     If dem=0 then write('NO') else write('YES');

    Readln;

End.