Напишите программу на языке Паскаль и выведите ответ на экран.Вычислить n ? если значение n пользователь вводит с клавиатуры​

n = 10                                                                                                                                                                                      

n! = 3628800

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.