Помогите очень срочно!!! Заранее спасибо
Написать программу, которая вычисляет факториал введенного с клавиатуры числа. (Факториалом числа п называется произведение целых чисел от 1 до n. Например, факториал 1 равен 1, 8-40320).
Должен считать до 100.
Вычисление факториала.
Введите число, факториал которого надо вычислить › 7
Факториал 7 равен 504 0

var p, i, n: integer;begin write ('введите целое n = '); readln (n); p: = 1; for i: = 1 to n do p: = p * i; writeln (n, '! = ',p); end.