Cod sursa(job #482857)

Utilizator tibi9876Marin Tiberiu tibi9876 Data 5 septembrie 2010 19:34:09
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.08 kb
Raporteaza aceasta sursa 
var p:longint;
begin
readln(p);
if p=0 then write(1) else write(p*5);
end.