Даны четыре естественных числа. Вывести на экран то из их, сумма

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