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

var a,p:integer;beginp:=1;repeatreadln(a);if (a>=-10) and (a<=10) then p:=p*a; until (a>10) or (a<-10); write(p) end.