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

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

  • program Test;
    var i, amountOfNumbers, sum, number: integer;
    begin 
       write('Введите количество чисел: '); 
       readln(amountOfNumbers);   

       writeln('Введите числа:'); 
       sum := 0;

       for i := 0 to amountOfNumbers - 1 do 
       begin   
          read(number);       

          if number mod 10 = 2 then
             sum := sum + number; 
       end;   

       writeln('Сумма: ', sum);
    end.