TSNT Pascal

var n:int64;

procedure pt_thua_so;
var i:longint;
begin
        i:=2;
        while i<= trunc(sqrt(n)) do
        begin
            while n mod i=0 do
            begin
                write(i,' ');
                n:=n div i;
            end;
            inc(i);
        end;
        if n>1 then write(n);
end;

begin
    assign(input, 'tsnt.inp');reset(input);
    assign(output, 'tsnt.out');rewrite(output);
    read(n);
    pt_thua_so;
end.