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

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

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

var a, b, c, d: integer;
begin
  a := 1;
  b := 1;
  c := 1;
  while (c > 0) do
  begin
    writeln('vvedite chislo');
    readln(d);
    if ((d < 0) AND ((d mod 2) <> 0)) then
      c := b;
      b := a;
      a := d;
  end;
  writeln(a, b, c);
  readln();
end.

Консоль:

vvedite chislo
1
vvedite chislo
2
vvedite chislo
-1
vvedite chislo
-3
vvedite chislo
-7
-7-3-1