Program prim;
const nmax=100;
type vector=array[1..nmax] of integer;
var v:vector; i,n,s:integer;
begin
writeln('Dati n='); readln(n);
for i:=1 to n do begin
write('v[,i,']='); readln(v[i]); end;
for i:= 1 to n do
if v[i] mod 2 <>0 then
if v[i] mod 3 <>0 then s:=s+1;
writeln('in sir sunt ',s,' numere prime'); readln; end.
