program numere2;
var P,m,n,i,j : longint;
    f : text;
    V : array [1..10000000] of boolean;
begin
assign(f,'numere2.in');
reset(f);
read(f,P);
close(f);


if P<>1 then begin
for i := 2 to P do
V[i] := true;

for i := 2 to P do
if V[i] then for j := 2 to P mod i do V[i+j] := false;

for i := 2 to P do
if V[i] then 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.