Найти n!(n!=1*2*3*4*... *n) Число n запросить с клавиатуры
//PascalABC.NET //Версия 3.3.5, сборка 1650 begin var n:=ReadInteger('n='); write(n,'!=',range(1,n).Aggregate(Real(1),(a,b)->a*b)); end.
Var a,b: integer; begin b := 1; Readln(a); for var i := 1 to a do b := b * i; Writeln(b); end.