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

Program n1; Uses CRT; Var a,b,c,k,n,i: integer; beginClrScr; writeln ('vvedite n'); readln (n); For i: =100 to 999 do begina: =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'); readlnend.