Ая опять к вам с по информатике на pascalabc.net в синтаксисе pascal abc. дано натуральное число n. вычислить n! (факториал числа n вычисляется по формуле 1*2*3*…*n, например, факториал числа 5 равен 1*2*3*4*5=120).

Var
  i,n:integer;
  p:real;
begin
  Write('n='); Read(n);
  p:=1;
  for i:=1 to n do p:=p*i;
  Writeln(n,'!=',p)
end.

Пример
n=12
12!=479001600