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

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

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

var i, a: integer;
begin
i:=1;
while (i<=3) do
begin
    readln(a);
    if (a<0) and ((a mod 2)=-1) then 
    begin
        i:=i+1;
        write(a,' ');
    end;
end;
end.