Решить задачу в Паскале авс.
Пользователь вводит натуральное число. Программа находит первое следующее за ним число с той же суммой цифр.

var a,b,s1,s2:integer;function sum(n:integer):integer;var s:integer;begins:=0;while n<>0 do begin s:=s+n mod 10; n:=n div 10; end;sum:=s;end;beginwrite('a = ');readln(a);s1:=sum(a);writeln('  s1 = ',s1);b:=a;while s1<>s2 do begin b:=b+1; s2:=sum(b); end;writeln('b = ',b,'  s2 = ',s2);end.Пример:a = 153  s1 = 9b = 162  s2 = 9