program p21;
uses Crt;
label 1;
var N,i:longint;

begin
clrscr;
write('Ktere cislo mam rozlozit na prvocinitele ? ');
readln(N);
1:for i:=2 to N do if (N/i)=trunc(N/i) then
  begin
    writeln(i);
    N:=trunc(N/i);
    goto 1;
  end;
writeln('KONEC');
repeat until keypressed;
end.