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

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

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

program Lesson10;
var a,b,c,i: integer;
begin
  i:=0;
  while (i<3)  do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    if (a<0) and ((a mod 2)<>0) then
    begin
      i:=i+1;
      if (i=1) then
        b:=a
      else if (i=2) then
        c:=a
      else
      begin
        writeln(a+b+c);
        break
      end;
    end;
  end;
readln();
end.