Впаскале: составить программу, вычисляющую n факториал (n вводится с клавиатуры).

Var n,i,c:integer;
 begin
 c:=1;
 readln(n);
  for i:=1 to n do
  c:=c*i;
 writeln(c);
 end.