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

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

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

var a, b, c, d, e : integer;

begin
  while (b < 3) do
  begin
    write('Enter an integer : ');
    readln(a);
    if (a < 0) and ((a mod 2) <> 0) then
      b := b + 1;
      if (b = 1) then
        e := a
      else
        if (b = 2) then
          d := a
        else
          c := a;
  end;
  writeln('Sum = ', e + c + d);
  readln();
end.