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

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

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

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

КОНСОЛЬ:

vvedite chislo: 16
6
vvedite chislo: 16
7
vvedite chislo: 13
6
vvedite chislo: 13
5
vvedite chislo: 13
4
vvedite chislo: 13
3
vvedite chislo: 13
2
vvedite chislo: 13
1
vvedite chislo: 13
0
vvedite chislo: 13
-1
zaverhenie