Составить программу нахождения n! факториала на Pascal

Program n1;var n, i: integer; p: real;begin write('Введите n: '); readln(n); p := 1;for i := 2 to n dop := p * i;writeln(n, '! = ', trunc(p));end.