Найти произведение элементов, кратных 5 - Pascal ABC

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

сформировать одномерный массив. Найти произведение элементов, кратных 5. через массивы решить и через процедуры. Нужно решить с тремя процедурами: процедура формирования массива, вывода, и ввода.. как то так.

Решение задачи: «Найти произведение элементов, кратных 5»

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

program z;
var i,p,n,f:integer;
a:array [1..20] of integer;
procedure sozdanie(var a1:array [1..20] of integer);
     var i:integer;
     begin
          for i:=1 to 20 do
              a1[i]:=trunc((15-(-15))*random+(-15));
     end;
procedure vuvod(a1:array [1..20] of integer);
     var i:integer;
     begin
          writeln('Г‘Г«ГіГ·Г*Г©Г*Г»Г© ГўГҐГЄГІГ®Г°: ');
          for i:=1 to 20 do
              write(a1[i],' ');
          writeln;
     end;
procedure proizvedenie(a1:array [1..20] of integer; var p1,f1:integer);
     var i:integer;
     begin
          p1:=1; f1:=0;
          for i:=1 to 20 do
              if (a1[i] mod 5=0) and (a1[i]<>0)
                 then
                     begin
                          p1:=p1*a1[i];
                          f1:=1;
                     end;
     end;
begin
     sozdanie(a);
     vuvod(a);
     proizvedenie(a,p,f);
     if f=0
        then
            writeln('ГќГ«ГҐГ¬ГҐГ*ГІГ®Гў, ГЄГ°Г*ГІГ*Г»Гµ ГЇГїГІГЁ Гў Г¬Г*Г±Г±ГЁГўГҐ Г*ГҐГІ!')
     else
         writeln('ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў, ГЄГ°Г*ГІГ*Г»Гµ ГЇГїГІГЁ - ',p);
end.

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

Список действий в коде:

Создание массива a размером 20 элементов, предназначенного для хранения чисел.
Создание процедуры sozdanie, которая заполняет массив a случайными числами от -15 до 15.
Создание процедуры vuvod, которая выводит содержимое массива a на экран.
Создание процедуры proizvedenie, которая находит произведение всех элементов массива a, кратных 5, и выводит его на экран.
Выполнение процедур sozdanie, vuvod и proizvedenie.
Проверка значения переменной f на равенство 0. Если это условие выполняется, то выводится сообщение ГќГ«ГҐГ¬ГҐГ*ГІГ®Гў, ГЄГ°Г*ГІГ*Г»Гµ ГЇГїГІГЁ Гў Г¬Г*Г±Г±ГЁГўГҐ Г*ГҐГІ!. Если нет - выводится сообщение с найденным значением произведения.