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

2013-12-05T17:15:48+04:00
Var
  i,k,n: longint;
begin
  readln(n);
  k:= 1;
  for i:= 1 to n do k:= k*i; 
  writeln(k);
end.