Найти произведение чисел в заданном диапазоне - Pascal ABC

Необходимо быстренько решить задачи Найти: а) Произведение всех целых чисел от 8 до 15; б) произведение всех целых чисел от

до 20 (значение

вводится с клавиатуры; ) в) произведение всех целых чисел от 1 до

(значение

вводится с клавиатуры; )

Листинг программы

uses crt;
var i,b,p:integer;
begin
p:=1;
writeln('введите b');
read(b);
for i:=1 to b do
p:=p*i;
writeln(p);
end.

Объяснение кода листинга программы

В начале кода подключается модуль CRT (используется для работы с консолью).
Затем объявляются три переменные: i, b, p (для хранения числа, количества и произведения соответственно).
Переменная p инициализируется единицей.
Выводится сообщение с просьбой ввести значение переменной b.
Введенное значение сохраняется в переменной b.
Затем выполняется цикл от 1 до b, в котором переменная p умножается на текущее значение i.
После завершения цикла выводится значение переменной p, которая содержит произведение чисел в заданном диапазоне.