Помогите решить задачу в паскале

[TylerMcTre]

Помогите решить задачу в паскале

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет».

 

[Vladimir_S]

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет».

Да без проблем:

Var
 N,i:LongInt;
 p:boolean;

Function Sum(M:LongInt):Byte;
var S:longInt;
begin
 S:=0;
 Repeat
  S:=S+(M mod 10);
  M:=M div 10;
 Until M=0;
 Sum:=S;
end;

Begin
 Write('N= ');
 Readln(N);
 p:=true;
 For i:=1 to N-1 do
  If Sum(i)=Sum(N) then
   begin
    Write(i:8);
    p:=false;
   end;
 If p then Writeln('No');
 Readln;
End.