Program shkolnik;
uses crt;
var x:integer;
x:=100;
begin
clrscr;
while x<1000 do 
  begin
    if x mod 9 = 0 then writeln(x);
    x:=x+1;
  end;
readln;
end.