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

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

program task8_lesson11;
var i,counter,a:integer;
begin
      counter:=0;
      while counter <= 3 do
            begin
              writeln('Enter integer : ');
              readln(i);
              if (i<0) and ((i mod 2) = -1) then
                 begin
                   counter:=counter + 1;
                   writeln(i);
                 end;
            end;
      readln();
end

.