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

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

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

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

Консоль:

Введите число:
1
Введите число:
2
Введите число:
-3
Введите число:
0
Введите число:
16
Введите число:
-1
Введите число:
-5
X= -9