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

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

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

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