Написать программу которая запрашивает ряд чисел и считает их сумму - Pascal

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

написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается

Решение задачи: «Написать программу которая запрашивает ряд чисел и считает их сумму»

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

const
    EPS = 0.0001;
var
    s, a: Real;
begin
    s := 0;
    repeat
        ReadLn(a);
        s := s + a;
    until (Abs(a - 1) < EPS);
    s := s - 1;
    //WriteLn('sum=', s:0:2); //вывод в условии ж не озвучен
end.

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

Константа EPS устанавливается равной 0.0001.
Переменные s и a инициализируются как вещественные числа.
s устанавливается равным нулю.
Выполняется цикл repeat- until, в котором: 4.1. Значение вводится с клавиатуры и сохраняется в переменной a с помощью ReadLn. 4.2. К значению s добавляется значение a. 4.3. Этот цикл выполняется до тех пор, пока абсолютное значение разности между a и 1 не будет меньше EPS.
От значения s вычитается 1.
Программа завершается. Программа запрашивает числа из входного потока, пока введенное число не будет близко к 1 (с точностью до значения EPS). Затем она суммирует все числа и выводит итоговую сумму.