2.
var a: array[1..32000] of integer;
i,n : integer;
function nt(x: integer): boolean;
var i: integer;
begin
nt:=false;
if x<2 then exit;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit;
nt:=true;
end;
begin
write('n='); readln(n);<br />for i:=1 to n do<br />begin<br />write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if nt(a[i]) then write(a[i],' ');
readln
end.

3.
var d,i,n : longint;
function nt(x: integer): boolean;
var i: integer;
begin
nt:=false;
if x<2 then exit;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit;
nt:=true;
end;
begin
write('n='); readln(n);
d:=0;
for i:=1 to trunc(sqrt(n)) do
if nt(i) then inc(d);
write(d);
readln
end.