Hotfix

gistfile1.txt

var 
value, i, j, pow :integer; 

function func(a, b: integer): integer; 
    var index: integer; 
begin 
    index := 0; 
    while (a mod b = 0) do 
    begin 
        a := a div b; 
        index := index + 1; 
    end; 
    func := index; 
end; 

begin 
readln(value); 

i := 2;

while (value <> 1) do 
    begin 
        pow := func(value, i);
        if pow <> 0 then
            
            for j := 0 to pow - 1 do
                begin
                    value := value div i;
                    write(i, ' * ');
                end;
        
        i := i + 1
    end; 
end.