Напишите программу которая в последовательности натуральных чисел определяет сумму всех...

Question

Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчивающихся на 2. Программа получает на вход натуральные числа и количество введенных чисел неизвестно последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000 . Введенные числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2.
Входные данные: 112, 24, 42, 49, 22,0
Выходные данные: 154

Answer 1

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.

Answer 2

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!


begin
Writeln(ReadlnString.ToIntegers.Where(t -> (t mod 7 = 0) and (t mod 10 = 2)).sum);
end.