Чет про программирование / туф / 14_numeric / prime

{$mode objfpc}

var n, i, deg: integer;

begin
read(n);
i := 2;
while i*i <= n do begin
if n mod i = 0 then begin
deg := 0;
while n mod i = 0 do begin
inc(deg);
n := n div i;
end;
write(i, '^', deg, ' ');
end;
inc(i);
end;

if n > 1 then write(n, '^1');

writeln;
end.