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

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

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

var
   z, a, inc: integer;
begin
  z:= 5;
  inc:= 4;//кол-во попыток
  while z >= 0 do
        begin
          writeln('Vvedide chislo: ');
          readln (a);
          //когда вводится число < 15
          //то z + 1, а inc - 1
          //когда inc = 0, то z - 1
          //если вводится число >= 15
          //то z + 1 и inc:=4;
          if (a < 15) and (inc = 0) then
             z:= z - 1
          else if (a < 15) and (inc <= 4) then
             begin
                z:= z + 1;
                inc:= inc -1;
             end
           else if a >= 15 then
              z:= z + 1;
          writeln('z ravno: ', z);
        end;
  writeln('Cikl zaverschen.');
  readln();
end.