Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
Готово.....................
0 раздели на 2.Чему будет равно?
А div - просто убирает остаток.
Например 10 div 3 будет 3,33, а компилятор тебе покажет просто 3.