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

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