Урок№11 Задание 10

Урок№11 Задание 10

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

program Pr11_10;
var a,b,c,x,i:integer;
begin
  i:=0;
  while (i<>3) do
    begin
      writeln('Введите число: ');
      readln(x);
      if (x<0) and (x mod 2 <>0) then
         begin
           i:=i+1;
             if (i=1) then a:=x
                else if (i=2) then b:=x
                   else if (i=3) then c:=x
         end;
    end;
  write('SUM= ',a+b+c);
  readln();
end.            

Консоль:

Введите число:
2
Введите число:
4
Введите число:
6
Введите число:
7
Введите число:
8
Введите число:
9
Введите число:
0
Введите число:
10
Введите число:
-1
Введите число:
0
Введите число:
-2
Введите число:
-3
Введите число:
-5
SUM= -9