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

Question

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

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

Answer 1

var

  pr, x:integer;

begin

  pr := 1;

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

  while (x<= 10) and (x >= -10) do

  begin

    Pr := pr * x;

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

    readln(x);

  end;

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

end.