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

//Pascalvar  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.