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

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

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

program Hello;
var a,b1,b2,b3,i : integer;
begin
i:=0;
begin
 while (i<>3) do
 begin
  writeln ('vvedite chislo');
  readln(a);
   begin
   if (a<0) and (a mod 2 = -1) then
    begin
     i:=i+1;
     if i=1 then
      b1:=a
     else if i=2 then
      b2:= a
     else if i=3 then
      b3:=a;
      writeln();  
      end;
    end;
   end;
 end;
 writeln(b1,b2,b3);
end.

Консоль:

vvedite chislo
9
vvedite chislo
4
vvedite chislo
-1
vvedite chislo
-3
vvedite chislo
5
vvedite chislo
-5
-1-3-5