Cod sursa(job #74941)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 29 iulie 2007 20:09:56
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
program factorial;
var f,g:text;
    p,n,i:longint;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
rewrite(g);
read(f,p);
if (p=0)then write(g,1) else
   begin
        for i:=1 to p do n:=n+5;
        write(g,n);
        end;
close(f);
close(G);
end.