VAR
 A,C:REAL;
BEGIN
 C:=0;
 Repeat
  Write('Enter the next number ');
  ReadLn(A);
 Until (A<0) or (A=0);
 If A<0 then
  begin
   C:=A;
   Repeat
    Write('Enter the next number ');
    ReadLn(A);
   Until ((A<0) and (A<>C)) or (A=0);
  end;
 If (A<0) and (A<>C) then
  WriteLn('Negative numbers are NOT equal') else
 If (A=0) and (C=0) then
  WriteLn('There were no negative numbers') else
 WriteLn('All negative numbers are equal');
 ReadLn;
END.