var p,i,nr,aux:integer; f:text; ok:boolean;
begin
     assign(f,'fact.in');
     reset(f);
     read(f,p);
     close(f);
     assign(f,'fact.out');
     rewrite(f);
     i:=1;
     repeat
     i:=i*5;
     aux:=i;
     while aux mod 5=0 do
     begin
     aux:=aux div 5;
     nr:=nr+1;
     end;
     IF nr=p then
     begin
     write(f,i);
     break;
     ok:=true;
     close(f);
     end;
     until ok;
     readln;
end.