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

program product;

var p, n, k: integer;

begin

p : = 1;

k : = 1;

writeln ('Для вывода результата введите множитель >10');

writeln ();

repeat

write ('Введите множитель ', k, ' - - ');

readln (n);

if ((n - 11)) then p : = p * n;

k : = k + 1

until ((n > 10) or (n < - 10));

writeln ('Произведение введенных множителей = ', p)

end.