Найти в целочисленном массиве из 1000 элементов, заполненного числами от 0 до 999 находит числа заканчивающиеся на 0 - Pascal ABC

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

Написать программу которая в целочисленном массиве из 1000 элементов заполненного числами от 0 до 999 находит числа заканчивающиеся на 0 1) выводит их на экран 2)выводит их кол-во

Решение задачи: «Найти в целочисленном массиве из 1000 элементов, заполненного числами от 0 до 999 находит числа заканчивающиеся на 0»

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

const n=1000;
var a:array[1..n] of integer;
    i,k:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=random(n);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 10=0 then
 begin
  write(a[i]:4);
  k:=k+1;
 end;
writeln;
write('k=',k)
end.

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

Объявляется целочисленная константа n=1000, которая определяет размер массива.
Объявляется массив a размером n, который будет заполнен случайными числами от 0 до 999.
В цикле for i от 1 до n происходит заполнение массива a случайными числами с помощью функции random(n).
Числа из массива a выводятся в формате 4-х знаков с помощью функции write(a[i]:4).
Выполняется цикл for i от 1 до n, в котором проверяется условие a[i] mod 10=0, т.е. последний символ числа равен 0.
Если условие выполняется, число выводится в формате 4-х знаков с помощью функции write(a[i]:4), и к переменной k прибавляется единица.
После выполнения второго цикла выводится число k с помощью функции writeln('k=',k).