Урок 11 Задание 14

Задание 14 Урок 11

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

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

Консоль:

vvedite chislo
17
6
vvedite chislo
15
5
vvedite chislo
17
6
vvedite chislo
3
5
vvedite chislo
4
4
vvedite chislo
5
3
vvedite chislo
6
2
vvedite chislo
7
1
vvedite chislo
8
0
vvedite chislo
9
-1