Question

Помогите с 1 задачей
1)При заданном n вычислить n факториал

Answer 1

uses Crt;
var
  i,p,n:longint;
begin
  ClrScr;
  Write('n='); Read(n);
  p:=1;
  for i:=2 to n do p:=p*i;
  Writeln('n!=',p);
  ReadKey
end.