Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4 - Turbo Pascal

Формулировка задачи:

Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4.

Решение задачи: «Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4»

Листинг программы

program pr;
 
var
  i, n, sum, m: integer;
 
begin
  writeln('Введите количество чисел');
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    read(m);         
    if (m mod 4 = 0) and (m mod 10 = 4) then
      sum := sum + m;
  end;
  writeln;
  writeln('Сумма: ', sum);
end.

Объяснение кода листинга программы

В программе объявлены переменные i, n, sum и m типа integer.
Выводится сообщение «Введите количество чисел», и считывается значение переменной n.
Инициализируется переменная sum значением 0.
Запускается цикл for, который выполняется от 1 до n.
Внутри цикла считывается значение переменной m с помощью функции read.
Проверяется условие (m mod 4 = 0) и (m mod 10 = 4). Это условие проверяет, является ли число m кратным 4 и оканчивается ли оно на 4.
Если условие истинно, то переменная sum увеличивается на значение m.
По завершении цикла выводится сообщение «Сумма: », и значение переменной sum.