Заполнить массив из 15 элементов случайными числами от 0 до 20. Вывести на экран честные элменты массива - Free Pascal

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

Заполнить массив из 15 элементов случайными числами от 0 до 20. Вывести на экран честные элменты массива ___ Нужно использовать for..do, if..then..else, randomize

Решение задачи: «Заполнить массив из 15 элементов случайными числами от 0 до 20. Вывести на экран честные элменты массива»

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

const  n= 15;
var A: array[1..n] of byte;
      i: byte;
begin
     Randomize;
      for i:=1 to n do
       A[i]:= Random(21);
      for i:=1 to n do
       if A[i]<>0 then
        if (A[i] mod 2)=0 then
         Write(A[i]:3);
      Readln;
end.

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

Объявляются переменные: n (количество элементов массива), A (массив), i (номер элемента).
Инициализируется генератор случайных чисел.
Заполняется массив A случайными числами от 0 до 20 с помощью функции Random(21).
Выводятся на экран только честные элементы массива (числа, делящиеся на 2 без остатка) с помощью условия if (A[i] mod 2)=0.
Выводится значение каждого честного элемента массива с помощью Write(A[i]:3).
Программа ожидает ввода с клавиатуры с помощью Readln.