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

Var  a,p : integer;
begin
p := 1;
 read(a);
repeat 
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.