Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s>0; s<18) Cрочно!

Спасибо большое!)

var i,s:integer;beginwrite('s = '); readln(s);for i:=10 to 99 do if (i div 10)+(i mod 10)=s then write(i,'  ');writeln;end.Пример:s = 1019  28  37  46  55  64  73  82  91  

//Pascal ABC.NET 3.1 сборка 1219begin var a:=ReadInteger(); writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));end.Пример ввода:13Пример вывода:[49,58,67,76,85,94]