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

Var a,b,s,n:integer;
begin
a:=9;
s:=9;
n:=1;
while s<>54 do
 begin
 n:=n+1;
 a:=a+9;
 b:=a;
 s:=0;
 while b<>0 do
  begin
  s:=s+b mod 10;
  b:=b div 10;
  end;
 end;
writeln('a = ',a,'  n = ',n);
end.

Результат:
a = 999999  n = 111111