процедуры. Написать процедуру для вычисления факториала натурального числа 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.