Найти все трехзначные числа, сумма цифр которых равна данному целому числу - Pascal ABC (12787)

Формулировка задачи:

Ребят помогите решить 3 задачки. Вроде простые , но я не умею на паскале задачи решать((( 3. Найти все трехзначные числа , сумма цифр которых равна данному целому числу.

Решение задачи: «Найти все трехзначные числа, сумма цифр которых равна данному целому числу»

Листинг программы

var n, i, s:int64;
begin
readln (s);
if s>27 then write ('Слишком большая сумма');
for i:=100 to 999 do begin
if (i mod 10+i div 10 mod 10+i div 100)=s then write (i,' ');
end;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Переменные в коде:

n: целое число, введенное пользователем;
i: переменная для хранения текущего числа, которое проверяется на соответствие условию;
s: целое число, сумма цифр которого равна n. Код начинается с чтения значения переменной n из ввода пользователя. Затем происходит цикл for, который проходит по всем трехзначным числам от 100 до 999. Внутри цикла проверяется условие: если текущее число (i) делится на 10 + i/10 и i/100, то это число добавляется в вывод, если сумма его цифр равна n. Если сумма цифр введенного числа превышает 27, то выводится сообщение Слишком большая сумма. Таким образом, данный код выводит все трехзначные числа, сумма цифр которых равна заданному числу n.