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

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

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

var
  a, b, c: integer;
  i, inc: integer;
begin
  inc:= 1;
  while inc <= 3 do
        begin
          write('Vvedite chislo: ');
          readln(i);
          if (i < 0) and ((i mod 2) <> 0) then
             begin
               if (inc = 1) then
                    a:= i
               else if (inc = 2) then
                    b:= i
               else
                    c:= i;
               inc:= inc +1;
             end;
        end;
  writeln('Summa chisel: ', a + b + c);
  writeln('Cikl zaverschen.');
  readln();
end.