Написать программу в паскале. найти произведение и сумму чисел кратных 3 от а до б

program zz1;

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

begin

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

read (a);

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

read (b);

p:=1;

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

begin

if i mod 3 = 0 then r:=r + i; / / вычисляем сумму чисел от а до b по формуле

if i mod 3 = 0 then p:=p * i; / / вычисляем сумму чисел от а до b по формуле

end;

writeln (' сумма чисел кратных трем от ', a,' до ', b,' = ', r); / / выводим ответы

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

end.