Разложение на простые множители.

//Факторизация на простые множители
var
 n, a, b, fix: int64;
label 1, 2, 3, 4, 5, 6, 7;
Begin
Readln(n);
fix:=n;
 4:if (fix mod 2=0) then begin
                     write('2,');
                     fix:=fix div 2;
                     goto 4;
                     end;
5:a:=2;
1:a:=a+1;
if (fix=1) then goto 3;
b:=1;
2:b:=b+1;
if (a mod b=0) then goto 1
else
 if (b>sqrt(a)) then begin
                     if (fix mod a=0) then begin
                                         write(a,',');
                                         fix:=fix div a;
                                         goto 5
                                         end
                     else goto 1
                     end
else goto 2;
3:end.