Паскаль. Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых СУММА ВСЕХ ЦИФР совпадает с СУММОЙ цифр данного числа. Если таких чисел нет, то вывести слово "нет".
Пример: N = 44. Числа: 17, 26, 35. хелпппппппппппп

Спасибо))

не уверен может не работать.....vara,n,sn,s,i,n1:integer;beginreadln(n);n1:=n;repeatsn:=sn+n1 mod 10;n1:=n1 div 10;until n1=0;for i:=1 to n-1 dobegina:=i;s:=0;repeats:=s+a mod 10;a:=a div 10;until a=0;if s=sn then write(i,' ');end;readln;end.