Var a,b,s,n:integer;
begin
a:=9;
s:=9;
n:=1;
while s<>63 do
begin
a:=a+9;
b:=a;
s:=0;
while b<>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
n:=n+1;
end;
writeln('a = ',a,' n = ',n);
end.
Результат:
a = 9999999 n = 1111111
Т.е. само число = 9999999, сумма цифр = 63, номер числа = 1111111