Дано натуральное число n. Выведите в порядке возрастания все трёхзначные числа, сумма цифр которых равна n.

Если Pascal:

var

n: byte;

i: integer;

begin

readln(n);

for i:=100 to 999 do

if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);

end.