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

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

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

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

Консоль:

Введите число:
1
4
Введите число:
2
3
Введите число:
16
4
Введите число:
1
3
Введите число:
-1
2
Введите число:
1
1
Введите число:
0
0