на языке C++:

#include

#include

#include

using namespace std;

int main () {

int result = 1;

int c;

string answer = ;/p>

while (1) {

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

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.