найти сумму двузначных положительных чисел сумма цифр которых кратно 7. (паскаль)

program zz1;

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

begin

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

begin

a:=i div 10; / / получаем первую цифру числа

b:=i mod 10; / / получаем вторую цифру числа

if (a + b) mod 7 = 0 then n:=n + i; / / проверяем, если сумма цифр очередного двузначного числа делится на семь без остатка, то добавляем его в сумму

end;

write (' сумма двузначных положительных чисел, сумма цифр которых кратна 7 = ', n); / / выводим ответ

end.