program numere2;
var P,m,n,i,j : longint;
    f : text;
begin
assign(f,'numere2.in');
reset(f);
read(f,P);
close(f);

if P<>1 then begin
for i := 2 to P do
if P mod i = 0 then break;

m := 1;
while P div i <> 1 do begin
inc(m);
P := P div i;
end;

assign(f,'numere2.out');
rewrite(f);

writeln(f,P);
writeln(f,m);

close(f);
end
else begin
     assign(f,'numere2.out');
     rewrite(f);

        writeln(f,1);
        writeln(f,1);

        close(f);
        end;

end.