22 lines
473 B
ObjectPascal
22 lines
473 B
ObjectPascal
Program Factorial;
|
|
var n, i : integer;
|
|
F : longint;
|
|
Intrare, Iesire : text;
|
|
label 1;
|
|
begin
|
|
{ Citirea datelor de intrare }
|
|
assign(Intrare, 'fact.in');
|
|
reset(Intrare);
|
|
readln(Intrare, n);
|
|
close(Intrare);
|
|
{ Calcularea factorialului }
|
|
F:=1;
|
|
if n=0 then goto 1;
|
|
for i:=1 to n do F:=F*i;
|
|
1: { Scrierea datelor de iesire }
|
|
assign(Iesire, 'fact.out');
|
|
rewrite(Iesire);
|
|
writeln(Iesire, F);
|
|
close(Iesire);
|
|
end.
|