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

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

var a, b: integer;
begin
  b := 0;
  while (b<3) do
    begin
      write('vvedite celoe chislo:');
      readln(a);
      if (a < 0) AND (a mod 2 = -1) then
      b := b + 1;
      writeln(a);
    end;
  writeln('Exit');
  readln();
end.