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

Через While решать!

var

pr, x:integer;

begin

pr : = 1;

write ('Введите число '); readln (x);

while (x = - 10) do

begin

Pr : = pr * x;

write ('Введите число ');

readln (x);

end;

writeln ('Произведение чисел = ', pr);

end.