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

program zz1;

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

begin

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

read(a);  

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

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.