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

http://fkn.ktu10.com/?q=node/7341

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

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