Определить количество четных чисел, введенных до ввода числа, кратного k - Turbo Pascal

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

Вводятся произвольные целые числа. Определить: а) количество четных чисел, введенных до ввода числа, кратного k; б) сумму первых k положительных чисел.

Решение задачи: «Определить количество четных чисел, введенных до ввода числа, кратного k»

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

sum:=0;
readln(k);
for i:=1 to k do
 begin
  readln(a);
  if a>0 then
   sum:=sum+a;
 end;

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

Переменная sum инициализируется значением 0.
Пользователю предлагается ввести значение переменной k.
В цикле for переменная i принимает значения от 1 до k.
Для каждого значения i выполняется следующая часть цикла:
- Пользователю предлагается ввести значение переменной a.
- Если значение a больше 0, то к переменной sum прибавляется значение a.
Цикл завершается, когда значение переменной i становится равным значению переменной k.
Выводится значение переменной sum, которое представляет собой количество четных чисел, введенных до ввода числа, кратного k.