Cod sursa(job #255391)
| Utilizator |  Amza Bianca Ioana squeezy |
Data | 9 februarie 2009 17:08:55 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.2 kb |
var
a,p,i: longint;
f,g: text;
begin
assign(f,'fact.in');
reset(f);
assign(g,'fact.out');
rewrite(G);
readln(f,p);
close(f);
a:=1;
for i:=1 to p-1 do
a:=a*p;
write(g,a*5);
close(g);
end.