Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. - Pascal ABC

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

С клавиатуры задается последовательность чисел. Ввод прекращается по отрицательному числу в задаваемой последовательности. Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Определить количество таких чисел.

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

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

var a,s,k:integer;
begin
writeln('Введите последовательность целых чисел, окончание ввода отрицательное число');
s:=0;
k:=0;
repeat
readln(a);
s:=s+a;
if a in[1..5] then k:=k+1;
until a<0;
writeln('Сумма чисел=',s);
writeln('Количество чисел d интервале [1..5]=',k);
end.

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

В начале объявляются переменные a, s и k типа integer.
Выводится сообщение для ввода последовательности целых чисел, при окончании ввода ожидается отрицательное число.
Переменная s инициализируется значением 0, а переменная k - значением 0.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной a не станет отрицательным.
Внутри цикла считывается значение переменной a с помощью функции readln().
Значение переменной a добавляется к переменной s.
Проверяется, принадлежит ли значение переменной a диапазону от 1 до 5 с помощью оператора in[1..5]. Если да, то значение переменной k увеличивается на 1.
После завершения цикла repeat выводится сообщение с суммой чисел и количеством чисел в диапазоне от 1 до 5.