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

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

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

var a, z: integer;
begin
  z := 5;
  while (z >= 0) do  // цикл завершится, если z станет отрицательным
    begin
      write('Сейчас z = ', z, ', введите число: ');
      readln(a);
      if a >= 15 then //прописываем условие
        z := z + 1
      else
        z := z - 1;
    end;
  readln();
end.

Вывод в консоли:

Сейчас z = 5, введите число: 6
Сейчас z = 4, введите число: 17
Сейчас z = 5, введите число: 18
Сейчас z = 6, введите число: 5
Сейчас z = 5, введите число: 0
Сейчас z = 4, введите число: 4
Сейчас z = 3, введите число: 2
Сейчас z = 2, введите число: 4
Сейчас z = 1, введите число: 5
Сейчас z = 0, введите число: 2