ОЧЕЕЕЕНЬ СРОЧНО!!!!!!!
Дано натурально число N. Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!function SoD(n:integer):integer;// сумма цифр в натуральном числеbegin  Result:=0;  while n>0 do begin    Result+=n mod 10;    n:=n div 10    endend;begin  var n:=ReadInteger('n=');  var sd:=SoD(n);  var s:=1.To(n-1).Where(t->SoD(t)=sd);  if s.Count=0 then Writeln('Нет')  else s.Printlnend.Примерn= 13619 28 37 46 55 64 73 82 91 109 118 127