Pascal While Задача на цикл Урок 11 Разбор

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