Program shkolnik; uses crt; var x:integer; x:=108; begin clrscr; while x<998 do begin x:=x+9; writeln(x); end; readln; end.