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

http://fkn.ktu10.com/?q=node/7341
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

var
z,x: integer;
begin
z:=5;
while z>0  do
begin
writeln ('введи число');
readln (x);
if x>=15  then
z:=z+1;

if x<15 then 
z:=z-1;
writeln (z);
if x<0 then
break;
readln ();
end;
end.