Cod sursa(job #713980)
| Utilizator |  Barbu Laura lauramaria |
Data | 15 martie 2012 11:01:58 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program factorial;
var n,p,k:longint;
f,g:text;
i,j:byte;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
assign(g,'fact.out');
rewrite(g);
if p=0 then
n:=1
else
begin
for i:=0 to 2 do
begin
j:=2;
n:=(i+j)*5;
k:=n;
write(g,k);
end;
end;
close(g);
end.
