Ответы и объяснения

2013-02-19T12:25:32+00:00

var
i, n: longint;ans: real;

begin
readln(n);
ans := 1;
for i := 1 to n do ans := ans * i;
writeln(ans);
end.