Чет про программирование / туф / 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.