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

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

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

var i, a, b1, b2, b3: integer;

begin
  i:=0;
  while (i <> 3) do
    begin
      writeln('vvedite chislo: ');
      readln(a);
        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
              begin
                b3:=a;
                writeln();
                writeln('otvet : ',b1, b2, b3);
              end;
          end;
    end;


  writeln('<<konec>>');

  readln();

end.