Задание 8 Урок 11

Задание 8 Урок 11

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

var i,i1 : integer;
begin
  i := 0;
  i1 :=0;

  while (i1 < 3) do
  begin
    write('Введите целое число и нажмите ENTER:');
    readln(i);
    if ((i < 0) and ((abs(i) mod 2) = 1)) then
    begin
      writeln(i, ' ');
      i1 := i1+1;
    end;
  end;
  readln();
end.