Найти произведение от 1до n( P=1*2*3....*n) на языке паскаль

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.