Найди сумму положительных нечётных чисел из промежутка от a до b, делящихся без остатка на 3

program zz1;

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

begin

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

read (a);

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

read (b);

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

if i > 0 then if i mod 2 0 then if i mod 3 = 0 then

r:=r + i;

write (' сумма положительных нечётных чисел делящихся без остатка на 3 из промежутка от ', a,' до ', b,' = ', r); / / выводим ответ

end.