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

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

var a,z:integer;

begin
  z:=5;
  while z>=0 do
begin
  writeln('Vvedite celoe chislo: ');
  readln(a);
  if(a>=15)then z:=z+1 else
    z:=z-1;
end;
end.   

Консоль:

Vvedite celoe chislo: 
1

Vvedite celoe chislo: 
1

Vvedite celoe chislo: 
1

Vvedite celoe chislo: 
1

Vvedite celoe chislo: 
1

Vvedite celoe chislo: 
1