Найти произведение всех положительных целых чисел от А до В

program zz1;

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

begin

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

read (a);

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

read (b);

r:=1;

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

if i > 0 then r:=r * i; / / проверяем, если число положительное, умножаем его на произведение

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

end.