Program shkolnik;
uses crt;
var x,sum:ineteger;
x:=100; 
sum:=0;
begin
clrscr;
while x<1000 do 
  begin
    if x mod 9 = 0 then writeln(x);
    x:=x+1;
    sum:=sum+x;
  end;
writeln();
writeln('Ñóììà ðàâíà: ',sum);
readln;
end.