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

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

program project118;
var a,b: integer;
begin
  a:=1;
  while a <= 3 do
    begin
    writeln('Vvedite celoe chislo');
    readln(b);
    if (b<0) and ((b mod 2) = -1) then
      begin
        a:=a+1;
        writeln('Minimalnoe otricatelnoe chislo a ',b);
      end;
    end;
  readln();
end.