Напишите программку, которая вводит естественное число и обретает все числа на

//Pascal ABC.NET v3.0 сборка 1111

Var
 n,i:integer;

 function sol(a:integer):integer;
var
 i,k:integer;
 s:string;
begin
k:=0;
str(a,s);
 for i:=1 to length(s) do
  k:=k+strtoint(s[i]);
 sol:=k;
end;

 begin
 readln(n);
  for i:=0 to n do
   if (sol(i*2)=sol(i*3)) and (sol(i*3)=sol(i*4)) and (sol(i*4)=sol(i*5)) and (sol(i*5)=sol(i*6)) and (sol(i*6)=sol(i*7)) and (sol(i*7)=sol(i*8)) and (sol(i*8)=sol(i*9)) then writeln(i);
end.

Пример ввода:
555
Пример вывода:
0
9
18
45
90
99
180
198
297
396
450
495
549