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

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

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

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