Паскаль ввести несколько чисел. найти сумму чисел лежащих в интервале от 10 до 15

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal будет выглядеть следующим образом:

program SumNumbersInRange;
var
num, sum: integer;
begin
sum := 0;
writeln('Введите числа:');
repeat
readln(num);
if (num >= 10) and (num <= 15) then
sum := sum + num;
until num = 0;
writeln('Сумма чисел в интервале от 10 до 15: ', sum);
end.

Пользователю нужно будет ввести числа по одному и для завершения ввода ввести 0. Программа будет находить сумму чисел, попадающих в интервал от 10 до 15, и выводить результат.