program bai_giai;
uses crt;
var a:array[1..20]of real;i,dem:longint;
function NT(b:longint):boolean;
var dem,j:longint;
        begin
         d:=0;
         for j:=1 to b do if(b mod i=0)then inc(d);
         NT:=dem=2;
        end;
begin
 clrscr;
  dem:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(NT(a[i])) then inc(dem);
        end;
  write('co ',dem,' so nguyen to trong day');
 readln
end.

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

for i:=1 to 20 do 

  begin

repeat

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

until a[i]>0;

end;

t:=0;

for i:=1 to 20 do 

  if a[i] mod 2=0 then inc(dem);

writeln('Trong mang co ',dem,' so nguyen to');

readln;

end.