Рекурсивная функция для нахождения суммы положительных чисел последовательности - PascalABC.NET

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

"Задана последовательность положительных вещественных чисел, за которой следует отрицательное число. Напишите рекурсивную функцию для нахождения суммы положительных чисел последовательности."

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

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

var a:real;
function p(x:real):real;
begin
 if x<0 then p:=-x
        else begin read(x); p:=p(x)+x end
end;
begin
 writeln(p(a))
end.

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

В данном коде:

Объявлена переменная типа real a.
Объявлена функция p с аргументом типа real x.
В функции p проверяется, если x меньше нуля, то возвращается -x.
Если x больше или равно нулю, то считывается значение x, и возвращается p(x) плюс x.
В основной части программы вызывается функция p с аргументом a, и результат выводится на экран.