Рекурсия: сложение двух чисел, используя только прибавление единицы - Free Pascal

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

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

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

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

function add(x, y, k: integer): integer;
begin
  if k <= x
    then add := add(x, y, k + 1) + 1
    else add := y
end;
 
var
  a, b: integer;
 
begin
  repeat
    write('a >= 0;  a = ');
    readln(a)
  until a >= 0;
  write('b = ');
  readln(b);
  write('a + b = ', add(a, b, 1));
  readln;
end.

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

В данном коде реализована рекурсивная функция сложения двух чисел, используя только прибавление единицы.

Объявлена функция add(x, y, k: integer): integer;
В функции используются три параметра: x, y, k.
Если k меньше или равно x, то вызывается рекурсивная функция add с параметрами x, y, k+1, и результат увеличивается на единицу.
Если k больше x, то функция возвращает значение y.
В основной программе объявлены две переменные a и b типа integer.
Пользователю предлагается ввести значение переменной a, пока оно больше или равно нулю.
Пользователю предлагается ввести значение переменной b.
Вызывается функция add с параметрами a, b, 1, и результат выводится на экран.
Программа завершается чтением символа, чтобы избежать исключения.