отыскать сумму двузначных положительных чисел сумма цифр которых кратно 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.