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

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);  ReadKeyend.