Найти количество чисел, кратных 5 и оканчивающихся на 0 - Pascal ABC

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

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

Решение задачи: «Найти количество чисел, кратных 5 и оканчивающихся на 0»

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

var
  n, i, k, m: integer;
 
begin
  k := 0;
  readln(n);
  for i := 1 to n do
  begin
    readln(m);
    if (m mod 5 = 0) and (m mod 10 = 0) then
      inc(k)
  end;
  writeln(k);   
end.

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

Объявлены четыре переменные: n, i, k, m типа integer.
Инициализирована переменная k значением 0.
Введено значение переменной n с помощью функции readln.
Запускается цикл for, который выполняется от 1 до n.
Внутри цикла вводится значение переменной m с помощью функции readln.
С помощью операции mod проверяется, делится ли число m на 5 и на 10 без остатка.
Если условие выполняется, то к переменной k прибавляется 1.
По завершении цикла выводится значение переменной k с помощью функции writeln.