Найти сумму максимальных цифр, использующихся в записи двух данных натуральных чисел. Нахождение максимальной цифры числа оформить в виде подпрограммы.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 function MaxDigit(n:integer):integer; begin   Result:=0;   while n>0 do begin     var m:=n mod 10;     if m>Result then result:=m;     n:=n div 10     end end; begin   var n1,n2:integer;   Write('Введите через пробел два натуральных числа: ');   Read(n1,n2);   Writeln('s=',MaxDigit(n1)+MaxDigit(n2)) end. Тестовое решение Введите через пробел два натуральных числа: 53252 4654083 s=13

function MaxDigit(n: integer): integer; var max: integer; begin   max := 0;   while n > 0 do   begin     if n mod 10 > max then max := n mod 10;     n := n div 10;   end;   MaxDigit := max; end; var a, b: integer; begin   read(a, b);   write(MaxDigit(a) + MaxDigit(b)); end.