Вряд выписаны в порядке возрастания числа, делящиеся на 9: 9, 18, 27, 36, …. под каждым числом этого ряда записана сумма его цифр. на каком месте в ряду впервые встретится число 63? ответ запишите в виде числа.

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