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

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

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

var a, b, c: integer;
begin
  while (a mod 2 <> -1) or (b mod 2 <> -1) or (c mod 2 <> -1) do
   begin
    if (a mod 2 <> -1) then
     begin
      write('Введите целое число 1: ');
      readln(a);
     end;
    if (a mod 2 = -1) and (b mod 2 <> -1) then
     begin
      write('Введите целое число 2: ');
      readln(b);
     end;
    if (a mod 2 = -1) and (b mod 2 = -1) and (c mod 2 <> -1) then
     begin
      write('Введите целое число 3: ');
      readln(c);
     end;
    if (a mod 2 = -1) and (b mod 2 = -1) and (c mod 2 = -1) then
     begin
      write('Сумма равна: ', a + b + c);
      break;
     end;
   end;
  readln();
end.