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

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

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

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