Написать код в Паскале.
Определить: сумма цифр какого из двух заданных чисел больше и насколько?

var a,b:longint;function sum (n:integer):integer;  var s:integer;  begin     s:=0;     while (n<>0) do       begin         s:=s+n mod 10;         n:=n div 10;       end;     sum:=s;   end;  begin    write ('A = ');    readln (a);    write ('B = ');    readln (b);    if sum(a) > sum(b) then       writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))    else if sum(b) > sum (a) then        writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))    else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');    readln;  end.