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

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

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

var
  i, inc: integer;
  flag: boolean;
begin
  i:= 1;
  inc:= 1;
  flag:= true;
  while flag do
        begin
          write('Vvedite chislo: ');
          readln(i);
          if (i < 0) and ((i mod 2) <> 0) then
             begin
               writeln ('Chislo < 0 nechetnoe ',inc, ': ', i);
               inc:=  inc + 1;
             end
          if  inc > 3 then
             flag:= false;
        end;
  writeln('Cikl zaverschen.');
  readln();
end.