Procedure factorize(n: longint);
var divisor: longint;
begin
divisor := 2;
while divisor * divisor <= n do
if n mod divisor = 0 then
begin
n := n div divisor;
writeln(divisor);
end
else inc(divisor);
if n <> 1 then writeln(n);
end;
var n: longint;
begin
readln(n);
factorize(n);
end.
Электронно-вычислительная машинка, возможно имеется в виду компьютер
Если я неошибаюсь 2.ну я так думаю
2 0 1 0 0
3 0 1 0 0
4 0 1 0 0
5 0 1 0 0
6 0 1 1 1