program vvv; var k,i:integer; BEGIN writeln('vv k'); readln(k); for i:=2 to k do begin while (k mod i)=0 do begin k:=trunc(k/i); writeln(i:3); end; end; readln; END.