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

Задача 8 Урок 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('Введите целое число: ');
      readln(a);
     end;
    if (a mod 2 = -1) and (b mod 2 <> -1) then
     begin
      write('Введите целое число: ');
      readln(b);
     end;
    if (a mod 2 = -1) and (b mod 2 = -1) and (c mod 2 <> -1) then
     begin
      write('Введите целое число: ');
      readln(c);
     end;
   end;
  write(a, ' ', b, ' ', c);
  readln();
end.