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.