составить программу на языке Паскаль числа по возрастанию.

program parampampam;

uses crt;

var

i: integer; {счетчик}

s: integer;

begin

clrscr; {очистка экрана}

writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S') ;

writeln ('Введите число S, от 0 до 18: ') ;

{ввод числа S с проверкой на корректность}

repeat

readln (s) ;

if (s>18) or (s<0) then

writeln ('Неверный ввод. Повторите')

until (s=0) ;

{вывод нужных чисел на экран (цикл с предусловием) }

for i : = 1 to 99 do

if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}

write (i, ' ') ;

repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}

end.