на языке C++:

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

using namespace std;

int main () {

int result = 1;

int c;

string answer = "";

while (1) {

cout << "Введите число";

cin >> c; 

if (c == 999)

 if (result == 1)

{cout << "Не введены отрицательные числа"<< endl; return 0;}

else {cout << "результат: " << result << endl; return 0;}

else if (c<0)result *= c;

cout << "продолжить? <YES> | <NO> ";

сin.getline(answer, sizeof(string));

 if (strcmp(answer, "YES")==0) continue;

else return 1;

}

}

Program BraTish77;
uses crt;
var
  p,temp: integer;
  yes:char;
begin
  yes:='Y';
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  p:=1;
  temp:=1;
  writeln('Вводите числа (для окончания ввода введите 999) ');
  while (yes = 'Y') or (yes = 'y') do
    begin
      p:=1;
      temp:=1;
      repeat
        write('Число:'); readln(temp);
          if temp <0 then p:=p*temp;
      until temp=999;
      writeln('Произведение отрицательных чисел равно ',p);   
      write('Повторить? (Y/N) '); readln(yes);
    end;
  writeln('Выход из программы');   
end.