Cod sursa(job #201402)

Utilizator Cristian_BBerceanu Cristian Cristian_B Data 31 iulie 2008 12:46:06
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.19 kb
Raporteaza aceasta sursa 
var f,g: text;
    p:longint;
begin
assign(f,'fact.in'); reset(f);
assign(g,'fact.out'); rewrite(g);
read(f,p);
if p<>0 then
write(g,p*5)
else
write(g,'1');
close(f);close(g);
end.