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

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

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

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('summa ',b1, ' ',b2, ' ',b3, ' = ',b1+b2+b3);
              end;
          end;
    end;


  writeln('<<konec>>');

  readln();

end.