Танина задача

gistfile1.txt

var 
value, i, 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); 

for i := 2 to value div 2 do 
begin 
    pow := func(value, i); 
    if pow <> 0 then
        writeln(i, ' в степени ', pow);

end; 

end.