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