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

11. While

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

var a,z:integer;
begin
a:=0; z:=5;
while (z >= 0) do
  begin
    writeln('write integer num ');
    readln(a);
    if (a >= 15) then
      begin
        z:= z + 1;
        writeln('counter: ', z)
      end
    else
      begin
        z:= z - 1;
        writeln('counter: ', z)
      end;
  end;
readln();
end.