Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2.

вот решение. . Program M1; var s,x:integer; begin s:=0; x:=1; while x<>0 do begin read(x); if (x mod 7=0) and (i mod 10=0) then s:=x+s; end; writeln('summa=',s); end.