1.На вход программе поступает последовательность целых чисел по одному числу в каждой строке, все числа последовательности отличны от нуля. Количество чисел неизвестно. Ввод данных заканчивается вводом числа 0. Найдите сумму отрицательных чисел последовательности язык ПИТОН​

39.только спасибо не забудь поставить.

Выкинуть компьютер в окно, либо оперативы добавить, либо я хз

Var
  x, y, z: integer;

begin
  read(x, y, z);
  if (x = y) and (y = z) and (x = z) then
  begin
    x := 3 * x;
    y := 3 * y;
    z := 3 * z;
    write(x, y, z);
  end
  else
  if (y = z) then
  begin
    x := -x;
    y := -y;
    z := -z;
    write(x, y, z);
  end
  else
  begin
    x := 222;
    y := 222;
    z := 222;
    write(x, y, z);
  end;
end.

Оперативная память и долговременная