Подсчитать сумму положительных четных чисел, не превосходящих 344 - Pascal ABC

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

Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных четных чисел, не превосходящих 344. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000.

Решение задачи: «Подсчитать сумму положительных четных чисел, не превосходящих 344»

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

N:=0; Sum:=0;
Repeat
  Readln(A);
  If A<>0 then Inc(N);
  If (A>0) and (A<=344) and (not Odd(A)) then Sum:=Sum+A;
Until (A=0);
Writeln(N,'  ',Sum);

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

N := 0; Сумма отрицательных четных чисел равна 0, поэтому начальное значение переменной N равно 0.
Sum := 0; Начальное значение переменной Sum также равно 0, так как мы ищем сумму положительных четных чисел.
Repeat Чтение числа A с помощью функции Readln. Если число A не равно 0, то переменная N увеличивается на 1. Это происходит для каждого числа A, которое не равно 0. Если число A положительное, оно не превышает 344 и является четным, то переменная Sum увеличивается на это число.
Until (A = 0); Цикл продолжается до тех пор, пока число A не станет равным 0.
Writeln(N, ' ', Sum); Выводится значение переменной N (количество нечетных чисел) и значение переменной Sum (сумма положительных четных чисел) с пробелами между ними.