Найти произведение отрицательных чисел - Pascal (9108)

Формулировка задачи:

Для различных вводимых с клавиатуры чисел, найти произведение отрицательных чисел. Колличество отрицательных чисел - N задать с клавиатуры, выход их программы при N = 0

Решение задачи: «Найти произведение отрицательных чисел»

Листинг программы

var
  a,x,i,proiz,n:integer;
begin
  write('Vvedite n: ');
  readln(n);
  proiz:=1;
  for i:=1 to n do
      begin
        write('Vvedite #',i,': ');
        readln(a);
        if (a<0) then proiz:=proiz*a;
      end;
  writeln('Proiz: ',proiz);
  readln;
end.

Объяснение кода листинга программы

В начале объявляются переменные: a, x, i, proiz, n - целые числа.
Затем идет команда write('Vvedite n: '), которая предлагает пользователю ввести число n.
После этого переменная n инициализируется значением, введенным пользователем.
Далее идет цикл for, который выполняется n раз.
На каждой итерации цикла пользователю предлагается ввести число a.
Если число a отрицательное, то значение переменной proiz умножается на a и присваивается обратно переменной proiz.
По завершении цикла выводится значение переменной proiz.
Программа завершается командой readln.