Question

se citesc de la tastatura un nr .sa se verifice daca este prim sau nu?

Answer 1

for (i=1;i<=n;i++){
if(nr.<0){
negative = negative +1

Answer 2

var i,k,n,x,p,s:integer;
begin
readln(n);
for k := 1 to n do begin
x := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(x)
end;
if x = 2 then begin
p += 1;
if n<>k then inc(s);
end;
end;
if s=p then writeln('Nu este prim') else writeln('Este prim');
end.