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

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

var a,b1,b2,b3,i:integer;
begin
  i:=1;
  while i<4 do
begin
  writeln('Vvedite celoe chislo: ');
  read(a);
  if ((a mod 2=-1)and(a<0)) then
  begin
    if(i=1)then b1:=a;
    if(i=2)then b2:=a;
    if(i=3)then b3:=a;
    i:=i+1;
  end;
  if(i=4) then writeln(b1+b2+b3);
end;

end. 

Консоль:

Vvedite celoe chislo: 
-7

Vvedite celoe chislo: 
-3

Vvedite celoe chislo: 
-5

-15