Условие этой задачи очень простое. Найдите наименьшее K такое, что K! делится на N без

остатка. K! = 1 · 2 · 3 · ... · (K - 1) · K.

Формат входных данных

В первой и единственной строке дано число N (1 ⩽ N ⩽ 109).

Var k, n, d, m, s:integer;

begin

k : = 1;

d : = 2;

read (n);

while n > 1 do

begin

s : = 0;

m : = 1;

while n mod d = 0 do

begin

if m mod d 0 then

begin

s : = s + d;

m : = s;

end;

n : = n div d;

m : = m div d;

end;

if s > k then k : = s;

d : = d + 1

end;

writeln (k)

end.