program Func5;
uses crt;
var
K: longint;
i: integer;
function IsPover(K: longint): boolean;
var
a: longint;
begin
a := 1;
repeat
a := a * 5;
until a >= K;
if a = K then
IsPover := true
else
IsPover := false;
end;
begin
clrscr;
write('K=');
readln(K);
write(IsPover(K));
readln;
end.