var

broj, faktor, stepen : longint;

ulaz, izlaz : Text;

begin

Assign(ulaz, 'faktor.in'); Assign(izlaz,'faktor.out');

Reset(ulaz); Rewrite(izlaz);

Read(ulaz, broj);

faktor := 2;

stepen := 0;

while faktor <= broj do

if broj mod faktor = 0 then

begin

stepen := stepen + 1;

broj := broj div faktor;

end

else

begin

if stepen > 0 then

WriteLn(izlaz,faktor : 10, stepen : 6);

faktor := faktor + 1;

stepen := 0;

end;

if stepen > 0 then {u slučaju da je broj stepen faktora, ni jednom

se ne ulazi u else granu !!!}

WriteLn(izlaz, faktor : 10, stepen : 6);

Close(ulaz); Close(izlaz);

end.