Question

напишите программу, которая в последоательности натуральных чисел оределяет сумму всех чисел, кратных 6 и оканчивающтхся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность ). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел кратных 6 и оканчивающихся на 2. Вводные данные 12, 24, 22, 72, 11, 0. выходные данные 84
СРОЧНО! ПОМОГИТЕ

Answer 1

Var A:byte;
    S:integer;
Begin
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 2) then S:=S+A;
Until A = 0;
Write(S);
End.