var n,i: integer;
f:real;
begin
write('n = ');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln (n,'! = ',f)
end.
Объяснение:
n < 171
