Question

Найти n!(n!=1*2*3*4*... *n) Число n запросить с клавиатуры

Answer 1

var a,b: integer; begin   b := 1;   Readln(a);   for var i := 1 to a do    b := b * i;    Writeln(b); end. 

Answer 2

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(n,'!=',range(1,n).Aggregate(Real(1),(a,b)->a*b));
end.