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

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

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

var i,a: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,' ');
        i:=i+1;
      end;
   end;
  readln();
end.                


Вывод консоли:
vvedite chislo
-1
-1
vvedite chislo
-3
-3
vvedite chislo
-5
-5