Вывести на экран все трехзначные натуральные числа, сумма цифр которых не превосходит заданное пользователем (введенное с клавиатуры) число.
PascalABC
функцией или процедурой

Program n1;var n,i: longint;function issum(n: longint): longint;var i,sum: longint;beginsum:=0;while(n<>0)do beginsum:=sum+(n mod 10);n:=n div 10;end;issum:=sum;end;beginwrite('введите число: ');readln(n);for i:=100 to 999 do if issum(i)<=n then write(i,' ');end.