program factoria;
var n,p,ft:longint ;f:text;
begin
        assign(f,'fact.in');
        reset(f);
        readln(f,p);
        close(f);
        {ft:=0;
        repeat
                n:=n+1;
                if n mod 5=0 then ft:=ft+1;
        until ft=p;}
        assign(f,'fact.out');
        rewrite(f);
        writeln(f,p*5);
        close(f);
end.