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

Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел кратных 7 и заканчивающихся на 2. Программа получает на входе натуральные числа, количество неизвестно, последовательность заканчивается числом 0.
Паскаль

Answer 1

Var
    number, sum: integer;

begin
    repeat
        readln(number);
        if (number mod 7 = 0) and (number mod 10 = 2) then
            sum := sum + number;
    until number = 0;
    writeln(sum);
end.