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

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

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

var i,count: integer;
begin
  count := 1; //счетчик
  while (count <= 3) do //цикл продолжается до трех положительных
    begin
      writeln('vvedite celie 4isla - ');
      readln(i);
        if (i < 0) and ((i mod 2)=1) then
          begin
            writeln(i);
            count := count + 1;
          end;
    end;
    writeln('poka!');
    readln();
end.