Найти сумму целых положительных четных чисел, вводимых с клавиатуры. - Turbo Pascal

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

помогите решить задачьку в паскале Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4<N<20).

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

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

var n,i,a,s:integer;
begin
repeat
write('Сколько чисел ввести (от 5 до 19) n=');
readln(n);
until n in [5..19];
writeln('Введите ',n,' целых чисел');
s:=0;
for i:=1 to n do
 begin
  readln(a);
  if(a>0)and(a mod 2=0) then s:=s+a;
 end;
write('Сумма четных положительных чисел=',s);
readln
end.

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

Создается переменная n типа integer, которая будет использоваться для хранения количества введенных чисел.
Создается переменная i типа integer, которая будет использоваться для перебора чисел от 1 до n.
Создается переменная a типа integer, которая будет использоваться для хранения введенного числа.
Создается переменная s типа integer, которая будет использоваться для хранения суммы четных положительных чисел.
Запускается цикл for, который будет выполняться n раз.
Внутри цикла считывается ввод пользователя с помощью функции readln().
Проверяется, является ли введенное число положительным и четным с помощью условий if(a>0)and(a mod 2=0).
Если условие истинно, то значение переменной a добавляется к переменной s.
После завершения цикла for, выводится сообщение с результатом.
Выполняется функция readln() для считывания ввода пользователя.
Программа завершается.