Cod sursa(job #216192)

Utilizator MDanFMI - Dan Moldovan MDan Data 23 octombrie 2008 10:30:26
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.19 kb
Raporteaza aceasta sursa 
Var p:longint;
Begin
Assign (input,'fact.in');
Assign (output,'fact.out');
reset(input);
rewrite (output);
Readln (p);
Writeln ((p - (p div 5 +1))*5);
close(input);
close(output);
End.