Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая (программа Паскаль)

Question

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая

Answer 1

procedure S(i:int64;var r:int64);
begin
  r:=0;
  while i>0 do begin
    r:=r+i mod 10;
    i:=i div 10;
  end;
end;
var
  a,sa,b,sb,c,sc,d,sd:int64;
begin
  write('Введите 4 числа:');
  readln(a,b,c,d);
  S(a,sa);S(b,sb);S(c,sc);S(d,sd);
  if sa>sd then begin sd:=sa;d:=a;end;
  if sb>sd then begin sd:=sb;d:=b;end;
  if sc>sd then begin sd:=sc;d:=c;end;
  writeln('Ответ:',d);
end.