Số nguyên a được coi là tốt hơn số nguyên b nếu tổng các chữ số của a lớn hơn tổng các chữ số của b. Với hai số có tổng các chữ số bằng nhau, số bé hơn được coi là tốt hơn. Ví dụ, 124 tốt hơn 123, 3 tốt hơn 111. giải hộ e code pascal với ạ

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var a, b : longint ;

  function sum_number(n:longint):longint;
     begin
    if n < 10 then exit(n);
    exit(n mod 10 + sum_number(n div 10));
     end ;
begin
    readln(a,b);
    if (sum_number(a)>sum_number(b)) then write(a,' good') 
    else if (sum_number(a)<sum_number(b)) then write(b,' good') 
    else if (sum_number(a)=sum_number(b)) and (a<b) then write(a,' good')
    else write(b,' good');
end .

program Hoidap247;
function tong(n: Integer): Integer;
var
  digit, sum: Integer;
begin
  sum := 0;
  while n > 0 do
  begin
    digit := n mod 10;
    sum := sum + digit;
    n := n div 10;
  end;
  tong := sum;
end;
procedure ans(a, b: Integer);
var
  sumA, sumB: Integer;
begin
  sumA := tong(a);
  sumB := tong(b);
  
  if sumA > sumB then
    WriteLn(a, ' ngon hơn ', b)
  else if sumA < sumB then
    WriteLn(b, ' ngon hơnn ', a)
  else
  begin
    if a < b then
      WriteLn(a, ' ngon hơn ', b)
    else
      WriteLn(b, ' ngon hơn ', a);
  end;
end;

var
  numA, numB: Integer;
begin
  ReadLn(numA);
  ReadLn(numB);
  ans(numA, numB);
end.