Задание 14 Урок 11

Задание 14 Урок 11:

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

var a, z: integer;
begin
  z := 5;
  while (z >= 0) do
    begin
      write('Введите целое число: ');
      readln(a);

      if (a >= 15) then
        z := z + 1
      else
        z := z - 1;

      writeln('z = ', z);
    end;

  writeln('--------');
  writeln('Успехов!');
  readln();
end.

Консоль:

Введите целое число: 22
z = 6
Введите целое число: 16
z = 7
Введите целое число: 3
z = 6
Введите целое число: 2
z = 5
Введите целое число: 1
z = 4
Введите целое число: 0
z = 3
Введите целое число: 3
z = 2
Введите целое число: 6
z = 1
Введите целое число: 7
z = 0
Введите целое число: 8
z = -1
--------
Успехов!