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.