Задача 10 Урок 11

Задача 10 Урок 11:

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

var a, b, c, i : integer;
begin
  a:=1;
  b:=1;
  c:=1;
  while (c > 0) do
  begin
    writeln('vvedite chislo:');
    readln(i);
    if ((i < 0) and (i mod 2<>0)) then
    begin
      c:=b;
      b:=a;
      a:=i;
      if (c < 0) then
       writeln(a,'+', b,'+',c,'=',a+b+c);
    end;
  end;
  readln();
end.   

Консоль:

vvedite chislo:
-2
vvedite chislo:
-2
vvedite chislo:
-2
vvedite chislo:
-1
vvedite chislo:
-1
vvedite chislo:
-1
-1+-1+-1=-3