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

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

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

program U11z8;
var count, a: integer;
begin
  count:= 1;  //задаем значение счетчика, для запуска цикла
  while (count <= 3) do // При проверке истинности - закончится после 3х True;
  begin
    writeln('Vvedite cheloe chislo:');
    readln(a);
      if (a < 0) and (a mod 2 = -1) then  //проверка условия на каждом витке;
         begin
            writeln('sootvetcvie usloviy: ', a);  //выводит когда true;
            count:=count+1; //помогает завершить цикл;
         end;
   end;
     writeln('End!');   // пишем за пределами тела цикла,
                        //чтобы вывести 'это значение после остановки цикла.
     readln();
end.