Решите задачу пж

Коротко про современное дз первоклассников

 

var
x, numDel, i, j: longint;
d: array[1..2] of longint;
begin
for i := 174457 to 174505 do begin
numDel := 0;
for j := 2 to i div 2 do begin
if i mod j = 0 then begin
numDel := numDel + 1;
if numDel > 2 then break;
d[numDel] := j;
end;
end;
if numDel = 2 then writeln(d[1], ' ', d[2]);
end;
end.

--- Сообщение объединено с предыдущим 27 окт 2020

Нет?

 

Тююююю чё тут решать?