Вычислить произведение целых чисел введенных с клавиатуры . Произведение подсчитывается до тех пор , пока вводятся числа в интервале от -10 до +10через repeat......until

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

program ProductOfNumbers;

var
num1, product: integer;

begin
product := 1;

repeat
write('Enter a number (-10 to 10): ');
readln(num1);

until not ((num1 >= -10) and (num1 <= 10));

writeln('The product of the numbers entered is: ', product);
end.