Small number on simple v1.1

var
n:int64;
c:boolean;
i:int64;
label 1 ,2;
Begin
readln(n);
1:i:=1;
c:=false;
repeat
 i:=i+1;
  if i>sqrt(n) then begin write(n); goto 2; end;
 if n mod i = 0 then begin c:=true; write(i,' '); n:=n div i; end;
until(c=true);
if not(n=1) then goto 1;
2:end.