Задание 10 Урок 11

Задание 10 Урок 11:

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

var i, a, b, c, d, sum: integer;
begin
  i := 0;

  while (i < 3) do
    begin
      write('Введите целое число: ');
      readln(a);

      if ((a < 0) and (a mod 2 = -1)) then
        begin
          i := i + 1;
          if (i = 1) then
            b := a
          else if (i = 2) then
            c := a
          else
            d := a;
        end;
    end;

  writeln('-------------');
  sum := b + c + d;
  writeln('Сумма: ', sum);
  readln();
end.  

Консоль:

Введите целое число: 8
Введите целое число: 234
Введите целое число: -2
Введите целое число: -9
Введите целое число: 3245
Введите целое число: 873
Введите целое число: -20
Введите целое число: -1
Введите целое число: -7
-------------
Сумма: -17