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

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

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

var a,b: integer;
begin

     a:=1; //задаем значение счетчика, для запуска цикла

     while (a <= 3) do // закончится после 3х True
     begin
          writeln('Enter an integer: ');
          readln(a); // пользователь вводит целое число
                     if (a < 0) and ((a mod 2)= -1) then //проверка условия на каждом витке
                        begin
                             writeln('Compliant: ', b); // в консоль выводится когда true
                             a:= a + 1; // помогает завершить цикл
                        end;

     end;

     readln();

end.