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

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

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

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

Вывод консоли:
vvedite chislo
16
6
vvedite chislo
17
7
vvedite chislo
3
6
vvedite chislo
4
5
vvedite chislo
5
4
vvedite chislo
6
3
vvedite chislo
7
2
vvedite chislo
8
1
vvedite chislo
9
0
vvedite chislo
1
-1
End