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

Урок 11

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

var a, b, c, i: integer;

begin
  i := 0;
  b := 0;
  c := 0;

  while i < 3 do
  begin
    
    writeln('Vvedite celoe chislo');
    readln(a);

    if ((a mod 2) <> 0) and (a < 0) and (b = 0) then 
    begin
       b := a;
       i := i + 1;
    end
    
    else if ((a mod 2) <> 0) and (a < 0) and (c = 0) then 
    begin
       c := a;
       i := i + 1;
    end
    
    else if (a < 0) and ((a mod 2) <> 0) then 
    begin
    
       writeln(b);
       writeln(c);
       writeln(a);
       
       i := i + 1;

    end;

  end;

end.

КОНСОЛЬ

Vvedite celoe chislo
1
Vvedite celoe chislo
100
Vvedite celoe chislo
-1
Vvedite celoe chislo
5
Vvedite celoe chislo
-5
Vvedite celoe chislo
10
Vvedite celoe chislo
-10
Vvedite celoe chislo
-9
-1
-5
-9