Паскаль! Найдите произведение целых чисел от a до b, где a и b вводятся с клавиатурыю

program zz1;

var a, b, r, i:int64; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

r:=1; / / задаем начальное значение для произведения

for i:=a to b do / / организуем цикл, в котором переберем все числа от а до b

r:=r * i; / / вычисляем произведение чисел от а до b по формуле

write (' произведение чисел от ', a,' до ', b,' = ', r); / / выводим ответ

end.