Напишите программу, которая находит все числа в диапазоне от a до b , сумма цифр которых не меняется при умножении на 2, 3, 4, 5, 6, 7, 8 и 9 (например, число 9). Используйте функцию для вычисления суммы цифр числа. ПОМОГИТЕ ПРОСТЫМ СПОСОБОМ, ДЛЯ НАЧИНАЮЩИХ

Входные данные
Входная строка содержит два натуральных числа – границы диапазона a и b . Гарантируется, что a ≤ b .

Выходные данные
Программа должна вывести все числа, удовлетворяющий условию, в одной строке, разделив их пробелами.

Примеры
входные данные
1 10
выходные данные
9

Функция Sod (Summa Of Digits) возвращает сумму цифр натурального числа. Функция IsGood возвращает True (истина), если сумма цифр натурального числа не меняется от его умножения на 2, 3, ... 9, т.е. определяет, является ли число "хорошим".

В основной программе принимаются значения границ интервала [a;b], а затем для каждого числа из этого выбирала отбираются "хорошие числа" и передаются на вывод.

*Описка: не "выбирала", а "интервала" )))) Комментарии, увы, править нельзя.

Program n1;function sumdig(x: integer): integer;var sum: integer;beginsum:=0;while x<>0 dobeginsum:=sum+x mod 10;x:=x div 10;end;sumdig:=sum;end;function opr(x: integer): boolean;var i,k: integer;beginopr:=false;k:=0;for i:=2 to 9 do if sumdig(x)=sumdig(x*i) then k:=k+1;if k=8 then opr:=true;end;var a,b,i: integer;beginreadln(a,b);for i:=a to b do if opr(i) then write(i,' ');end.