вычислить факториал по заданному значению n. Замечание: n!=1 2 3 ……n

//Pascal
var
  factorial: longint;
  n, i: byte;
begin
  write('n = '); readln(n);
  factorial := 1;
  for i:=2 to n do
    factorial := factorial * i;
  writeln('n! = ', factorial);
end.