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

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

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

var a, b : integer;

begin
  while (true) do
    begin
      write('Enter an integer : ');
      readln(a);
      if (a < 0) and ((a mod 2) <> 0) then
        begin
          writeln('Conclusion : ', a);
          b := b + 1;
        end;
      if (b = 3) then
        break;
    end;
  readln();
end.