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

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

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

var a,b:integer;

begin
  b:= 0;
  while b < 3 do
        begin
           writeln('vvedite chisla:');
           readln(a);
           if((a mod 2) = -1) AND (a < 0) then
              begin
                 writeln(a);
                 b := b + 1;
                 writeln('chisla otrizatelnie i nechetnie: ',b);
             end;
        end;
  readln();
end.