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

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

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

program programma8;
var a, b : integer;
begin
  a := 1;
  b := 0;
  while (b <> 3) do
  begin
    writeln('Vvedite chislo:');
    readln(a);
      If a<0 then
      begin
        writeln('otricatelnoe chislo:', a);
        b:=b+1;
      end;
  end;
  readln();
end.