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

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

Цикл и программа должны завершиться, когда число z станет отрицательным.

var a,i,z:integer;
begin
  z:=5;
  i:=4;
  while z>=0 do
begin
  writeln('Vvedite celoe chislo: ');
  readln(a);
  if(a>=15) then i:=4;
  if(a<15) then i:=i-1;
  if(i>0) then z:=z+1
  else z:=z-1;
  writeln('Otvet: ',z);
end;
end. 

Консоль:

Vvedite celoe chislo: 
5

Otvet: 6
Vvedite celoe chislo: 
5

Otvet: 7
Vvedite celoe chislo: 
5

Otvet: 8
Vvedite celoe chislo: 
5

Otvet: 7
Vvedite celoe chislo: 
5

Otvet: 6
Vvedite celoe chislo: 
5

Otvet: 5
Vvedite celoe chislo: 
5

Otvet: 4
Vvedite celoe chislo: