readln
p:=1
write n>=p do begin
t:=0
for i:2 to p-1 do
if p mod i=0 thrn t:=1;
if (t=0) and n mod p=0) then begin writeln p
n:n div p
end;
p:=p+1;
end;
1. что выводит данная программа?
2. будет если вместо n>=p написать n<>p ?
3. что будет если поменять местами две строки цикла ?