program ProductOfNumbers;

var
num1, product: integer;

begin
product := 1;

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

if (num1 >= -10) and (num1 <= 10) then
begin
product := product * num1;
end;

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

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