vladmor Var s,i: integer;
begin
s:=0;
i:=10;
while i<100 do begin
  if i mod 9 = 0 then s:=s+i;
  i:=i+1;
  end;
  writeln(s,' - cумма членов последовательности кратных 9 ');
end.