Написать рекурсивную функцию подсчета суммы цифр натурального числа и с ее

Усточните: Pascal ABC либо PascalABC.NET. Там отличия есть.

Усточните: Pascal ABC либо PascalABC.NET. Там отличия есть.

Function NumSum(n:integer):integer;
var d:integer;
begin
  d:=n mod 10;
  if d=n then NumSum:=n
  else NumSum:=d+NumSum(n div 10)
end;

var a,b,d:integer;
begin
  Write('Введите два числа: '); Read(a,b);
  d:=NumSum(a)-NumSum(b);
  if dgt;0 then Writeln('Сумма цифр в первом числе больше')
  else
    if dlt;0 then Writeln('Сумма цифр во втором числе больше')
    else Writeln('Сумма цифр в обоих числах схожа')
end.

В хоть какой версии заработает, как мне кажется. Пробуй.