Вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4 - Pascal ABC

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

Написать программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 2 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. последовательности всегда имеется число, кратное 2 и оканчивающееся на 4. Количество чисел не превышает 200. Введенные числа по модулю не превышает 400. Программа должна вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4. Пример: Входные данные: Выходные: 5 52 8 4 14 16 34

Решение задачи: «Вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4»

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

program pr;
 
var
  n, i, sum, m: integer;
 
begin
  sum := 0;
  writeln('Введите количество чисел последовательности');
  readln(n);
  if n <= 200 then begin
    for i := 1 to n do
    begin
      writeln('Введите ', i, ' число:');
      readln(m);
      if abs(m) <= 400 then
      begin
        if (m mod 2 = 0) and (m mod 10 = 4) then
        begin
          sum := sum + m;
        end;
      end
      else begin writeln('Число по модулю не должно превышать 400'); exit; end;
    end;
    writeln('Сумма элементов последовательности кратных 2 и оканчивающихся на 4: ', sum);
  end
  else writeln('Количество не должно превышать 200');
end.

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

Программа начинается с объявления переменных n, i, sum и m типа integer. Затем программа запрашивает у пользователя количество чисел в последовательности и проверяет, что это количество не превышает 200. Далее, в цикле for i := 1 до n do, программа запрашивает у пользователя каждое число в последовательности и проверяет его на соответствие условиям: число должно быть кратно 2 и заканчиваться на 4. Если число удовлетворяет этим условиям, то оно добавляется к переменной sum. После завершения цикла, программа выводит на экран сумму чисел, удовлетворяющих условиям, и завершает работу. Если количество чисел в последовательности превышает 200, программа выводит сообщение об ошибке.