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

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

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

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