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

Урок 11

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

var a, z: integer;

begin
  z := 5;
  readln(a);

  while (z >= 0) do
    begin
      
      while(a >= 15) do
      begin
        z := z + 1;
        writeln(z);
        readln(a);
      end;
      
      while((a < 15) and (z >= 0)) do
      begin
        z := z - 1;
        
        if z < 0 then
          break;
    
        writeln(z);
        readln(a);
      end
       
    end;

end.

КОНСОЛЬ

15
6
5
5
5
4
5
3
5
2
5
1
5
0
5