Напишите программу, которая ищет среди целых числовому отрезку [185457;185489]

Объяснение:

var b,i,x,j:integer;

s:string;

begin

for i:=185457 to 185489 do

begin

 x:=0;

 s:='';

 for j:=2 to (i div 2) do  

   if ((i mod j)=0) then begin

     x:=x+1;

     s:=s+j+' ';

     end;

   if x=2 then

     writeln (s,'\\ ',i);

 end;

end.