05

var n,i,d,e,z,s: integer;
begin
write('Введите число: ');
readln(n);
write('Трёзначные числа, сумма цифр которых равна заданному числу: ');
for i:=100 to 999 do begin
s:=i div 100;
z:=i mod 100;
d:=z div 10;
e:=i mod 10;
if s+d+e=n then write(i, ' ');
end;
writeln;
end.