program pr;
var n,f,i: integer;
begin
write('n = ');
readln(n);
f:=1;
for i:= 1 to n do f:=f*i;
writeln ('f = ',f);
end.
Пример:
n = 4
24
program pr;
var n,f,i: integer;
begin
write('n = ');
readln(n);
f:=1;
for i:= 1 to n do f:=f*i;
writeln ('f = ',f);
end.
Пример:
n = 4
24