Код: Выделить всё
function prost(s: integer):integer;
var
i,k,n:integer;
begin
for i:=2 to n do begin
s:=0;
for k:=1 to i div 2 do begin
if i mod s=0 then inc(s);
end;
if s=1 then Writeln(i);
end;
end;
procedure poisk(n:integer);
var
i: integer;
begin
Writeln('Введите число:');
Readln(n);
i := 2;
While N mod i > 0 do
if i = 2 then inc(i)
else inc(i, 2);
if prost(i) = prost(n div i)then writeln('можно')
else writeln('нельзя');
end;
end.