<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadInteger('a=');
Writeln(1.To(a).Aggregate(int64(1),(p,q)->p*q))
end.
<u>Пример</u>
a= 20
2432902008176640000
Turbo Pascal:
Program readInteger;
Uses CRT;
Var s:char; z:Integer;
Begin
ClrScr;
WriteLn('Введите числа:');
repeat
If (KeyPressed = true) than
begin
S:=ReadKey
z:=z+1;
End;
Until s ="0";
Write('Вы ввели ',z,' чисел!');
ReadLn;
End.
<span>В прямом - действие выполняется сразу после ввода командной строки. В программном - после компиляции, сборки всех действий автоматически - все описанные действия попорядку</span>