begin
  var a := ReadlnInteger('a =');
  var b := ReadlnInteger('b =');
  var sum := 0;
  var Count := 0;
  foreach var x in Range(a, b) do
  begin
    var s := x.ToString;
    var SumDigits := 0;
    for var i := 1 to s.Length do
      SumDigits += s[i].ToDigit;
    if SumDigits = 18 then 
    begin
      Print(s);
      sum += s.ToInteger;
      Count+=1;
    end
  end;
  Println; Write('количество: ', Count, ', сумма = ', sum)
end.