Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
var
N, S: Integer;
begin
WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');
S := 0;
repeat
ReadLn (N);
if (N mod 6 = 0) and (N mod 10 = 6) then
S := S + N;
until N = 0;
WriteLn ('Сумма = ', S);
end.