uses crt;
var a:array[0..200] of longint;
    i,n,d:longint;
function nto(n:longint):boolean;
var i : longint;
begin
 if n < 2 then exit(false);
  for i := 2 to trunc(sqrt(n)) do
    if n mod i = 0 then exit(false);
  exit(true);
end;
begin
clrscr; 
write('Nhap vao so luong phan tu: ');readln(n);
for i := 1 to n do
 begin
  write('Nhap vao phan tu thu ',i,': '); readln(a[i]);
  if nto(a[i]) then d := d + 1;
 end;
writeln('Co ',d,' so nguyen to');
write('Cac so nguyen to: ');
for i := 1 to n do
 if nto(a[i]) then write(a[i],' ');
readln;readln;
end.

Program baitap;

Uses crt;

Var A:array[1..200] of integer;

      n,i,j,dem,x:integer;

Begin

Clrscr;

Write('n='); Readln(n);

For i:=1 to n do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     End;

dem:=0;

For i:=1 to n do

     Begin
     x:=0;
     For j:=1 to A[i] do
     If (A[i] mod j=0) then x:=x+1;
            If x=2 then

                 Begin

                 Writeln(A[i]);

                 dem:=dem+1;

                 End;
     End;

Writeln('Co ',dem,' so nguyen to trong mang');

Readln

End.