Найдите произведение чисел 1*2**9 паскаль

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); readln;end.