Определить сумму всех чётных чисел массива - Pascal

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

Составить программу определения суммы всех четных чисел массива К={kj}, j=1,m, m - число элементов в массиве К (m≤60). Вывести на экран найденное значение суммы, а также все четные числа и их адреса.

Решение задачи: «Определить сумму всех чётных чисел массива»

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

program lab11osn;
uses crt; //подключение модуля сrt
const m=55; //Задание конца массива
var k:array [1..m] of integer; // Задание массива
 j,i,n,k0,s : integer; // Задание переменных
Begin // начало программы
write('введите количество элементов массива не больше 55=');//Приглашение на ввод количества адресов
readln(n);//Запрос на ввод  адресов
for j:=1 to n do begin
                 write('k[',j,']=');
                 readln(k[j]);
                 end;
i:=0;
writeln;
for j:=1 to n do
 if k[j] mod 2 = 0 then
  begin
    S:=S + K[j];
    writeln('Число ',K[j],' | Позиция ',j);
  end;
writeln(' Сумма =  ',S);
end.

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

const m=55 - Задание константы m со значением 55.
var k:array [1..m] of integer - Объявление массива k с длиной 55 элементов.
j,i,n,k0,s : integer - Объявление переменных j, i, n, k0, s типа integer.
write('введите количество элементов массива не больше 55=') - Вывод на экран приглашения для ввода количества элементов массива.
readln(n) - Ввод значения количества элементов массива.
for j:=1 to n do begin...end - Цикл для ввода значений элементов массива k.
i:=0 - Присвоение начального значения переменной i.
for j:=1 to n do... - Цикл для проверки четности элементов массива и их суммирования (если элемент четный).
S:=S + K[j] - Суммирование значения четного элемента в переменную S.
writeln(' Число ',K[j],' | Позиция ',j) - Вывод на экран четных чисел и их позиций в массиве.
writeln(' Сумма = ',S) - Вывод на экран суммы четных чисел в массиве.