из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры.

Program n1;

Uses CRT;

Var a, b, c, k, n, i: integer;

begin

ClrScr;

writeln ('vvedite n') ;

readln (n) ;

For i:=100 to 999 do

begin

a:=i div 100;

b:=i mod 100 div 10;

c:=i mod 10;

If a+b+c=n then

begin

write (i:4) ;

k:=k+1;

end;

end;

if k=0 then writeln ('takih chisel net') ;

readln

end.