Developing.ru

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.

Составить программу для проверки, можно ли заданное натуральное число N представить в виде произведения двух простых чисел. Паскаль. Программа не работает, не могу сообразить
[code]
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.[/code]