Дан одномерный массив, найти количество элементов, которые делятся на 3 без остатка - Pascal

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

Дан одномерный массив, найти количество элементов, которые делятся на 3 без остатка вывести все отрицательные

Решение задачи: «Дан одномерный массив, найти количество элементов, которые делятся на 3 без остатка»

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

program      sam;
uses         crt;
const        WG=50;
type         tmasi=array[1..WG]of integer;
var          a:tmasi;
             k,i,j:byte;
begin
     write('ГђГ*Г§Г¬ГҐГ°Г*Г®Г±ГІГј-');
     readln(j);
     k:=0;
     for i:=1 to j do begin
    writeln('ГўГўГҐГ¤ГЁ ',i,' ГЅГҐГ«ГҐГ¬ГҐГ*ГІ');
    readln(a[i]);
     if a[i]mod 3=0 then inc(k);
                      end;
     writeln('ГЊГ*Г±Г±ГЁГў:');
     for i:=1 to j do
     write(a[i]:5);
     writeln;
     if k=0 then writeln('ГЌГҐГІ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў,Г¤ГҐГ«ГїГ№ГЁГµГ±Гї Г*Г* 3')else writeln('ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¤ГҐГ«. Г*Г* 3- ',k);
     writeln('ГЋГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»ГҐ ГЅГ«ГҐГ¬ГҐГ*ГІГ»:');
     for i:=1 to j do
     if a[i]<0 then write(a[i]:5);
     
end.

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

Создается программа на языке Pascal с использованием стандартной библиотеки crt.
В программе объявляются переменные: a - одномерный массив целых чисел, k и i - байтовые переменные, j - целочисленная переменная.
Выводится приглашение для ввода количества элементов массива, которые делятся на 3 без остатка.
В цикле for с 1 по j выполняются следующие действия:
- выводится строка ГўГўГҐГ¤ГЁ,i,' ГЅГҐГ«ГҐГ¬ГҐГ*ГІ`;
- считывается значение a[i] с помощью функции readln.
- проверяется, делится ли значение a[i] на 3 без остатка. Если да, то увеличивается значение переменной k.
- выводится строка ГЊГ*Г±Г±ГЁГў:;
- выводятся все значения a[i] с помощью функции write.
- если k равно 0, выводится строка ГЌГҐГІ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў,Г¤ГҐГ«ГїГ№ГЁГµГ±Гї Г*Г* 3. В противном случае выводится строка ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ®Г� Г¤ГҐГ«. Г*Г* 3-.
Если значение a[i] отрицательное, выводится его значение.
Выводится завершающий символ новой строки.