Написать программу в Паскале. (задача)
Пользователь вводит целые числа, 0 это финиш, просуммировать все числа в диапазоне от 5 до 15 включительно

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

program SumNumbersInRange;
var
num, sum: integer;
begin
sum := 0;
repeat
write('Enter a number (0 to finish): ');
readln(num);
if (num >= 5) and (num <= 15) then
sum := sum + num;
until num = 0;
writeln('The sum of numbers in the range from 5 to 15 is: ', sum);
end.