Răspuns:
program NumarPrim;
var n,d,p:integer;
begin
write('n= '); read(n);
p:=1;
if n<2 then p:=0;
if n>2 then
begin
if n mod 2=0 then p:=0;
d:=3;
while (d*d<=n)and(p=1) do
begin
if n mod d=0 then p:=0;
d:=d+2;
end;
end;
if p=1 then writeln('este prim')
else writeln('nu-i prim');
end.
Explicație: