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

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

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

var a,b,z : integer;
begin
z:=5;
b:=4;
  while (z >=0) do
    begin
      writeln('vvedite chislo:');
      readln(a);

        if(a >= 15) then
          b:=4
        else
          b:=b-1;

        if(b >= 0) then
          z:=z+1
        else
          z:=z-1;
        writeln('z = ', z)
    end;
  readln();
end.