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

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

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

//Первый способ
program project1;
var numb,z,inc:integer;
 flag:boolean;
begin
  z:=5;
  inc:=4;
  flag:=true;
  while(z>0)do
    begin
    write('vvedite chislo: '); readln(numb);
    if(numb>=15)then
      inc:=4
    else
      inc:=inc-1;
    if(inc>=0)then
      flag:=true
    else
      flag:=false;
    if(flag)then
      z:=z+1
    else
      z:=z-1;
  writeln(z);
  end;
readln();
end.

//Второй способ
program Hello;
  var numb,z,inc:integer;
begin
  z:=5;
  inc:=4;
  while(z>0)do
    begin
      write('vvedite chislo: '); readln(numb);
      if(numb>=15)then
        inc:=4
      else
        inc:=inc-1;
     if(inc>=0)then
        z:=z+1
     else
        z:=z-1;
     writeln(z);
    end;
readln();
end.