Question

Переведите с Паскаля на C++ или питон
x, numDel, i, j: longint;
d: array[1..2] of longint;
begin
for i := 148207 to 148231 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.