Cod sursa(job #19891)
| Utilizator |  Stan Andreea aeerdna24 |
Data | 20 februarie 2007 10:31:06 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.27 kb |
var n,p,i:longint;
begin
assign(input,'fact.in');reset(input);
assign(output,'fact.out');rewrite(output);
readln(n); p:=1;
for i:=1 to n do
p:=p*i;
if n<0 then writeln('Nu pot efectua calculele.')
else writeln(p);
close(input);close(output);
end.
