Cod sursa(job #736539)

Utilizator MaarcellKurt Godel Maarcell Data 18 aprilie 2012 21:53:36
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
var j,k,l,m:integer; i,n:integer; f1,f2:text;
begin
assign(f1,'fact.in');
reset(f1);
assign(f2,'fact.out');
rewrite(f2);
readln(f1,n);
if n=0 then writeln(f2,1)
else if n*5=25 then writeln(f2,0)
else if n*5>25 then writeln(f2,n*5+5);
close(f1);
close(f2);
end.