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

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

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

var k,i:integer;
  begin
    k:=0;
    i:=0;
    while true do
      begin
        if (i=3) then
          break;
        readln(k);
        if ((k<0) and (not(k mod 2)=0)) then
          begin
            writeln(k);
            i:=i+1;
          end;
      end;
    readln();
  end.