С1 1)при заданном n вычислить n факториал

Var
N,N1:integer;
Begin
N1:=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 do
f:=f*i;
writeln('faktorial=',f);
readln;
end.