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

VarN,N1:integer;BeginN1:=1;Write('N = ');ReadLn(N);For N:= 2 to N do N1:=N1*N; WriteLn(N,'! = ',N1)End.Во вложении вариант для Pascal ABC.net

var n,i: Integer;f: LongInt;begin writeln('vvedite n=');readln(n);f:=1;for i:=1 to n dof:=f*i;writeln('faktorial=',f);readln;end.