1.var i,n,s:integer;
2.begin
3.readln(n);
4.s:=1;
5.for i:=1 to n do
6.s:=s*i;
7.writeln(s);
8.end.
Объяснение:
