Задание в паскале: Составить программу, вычисляющую N факториал (N вводится с клавиатуры).
Var n,i,c:integer; begin c:=1; readln(n); for i:=1 to n do c:=c*i; writeln(c); end.