var n,i,a,ct,p:longint;
f,g:text;
procedure citire;
begin
assign(f,'numere2.in'); reset(f);
readln(f,p);
close(f);
end;
procedure divizori;
begin
i:=1; ct:=0;
if p=1 then begin assign(g,'numere2.out'); rewrite(g); writeln(g,'1'); writeln(g,'1'); close(g); end
else
 while (i<=p) and (p>1) do
 begin
inc(i);
while p mod i=0 do
begin
inc(ct);
p:=p div i;
end;
if ct>0 then  begin a:=i; break;  end;
end;
assign(g,'numere2.out'); rewrite(g); writeln(g,a); writeln(g,ct); close(g); end;
begin
citire;
divizori;
end.