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

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

var
  z,i,p,a,b,c,d:integer;
  begin
    z:=5;
    while (z>0) do
      begin
        writeln('Vvedite chislo!');
        readln(i);
          d:=c;
          c:=b;
          b:=a;
          a:=i;
        if ((a>=15) or (b>=15) or (c>=15) or (d>=15)) then z:=z+1
        else z:=z-1;
        writeln('z=',z);
      end;
       readln();

    end.

Результат
______________________

Vvedite chislo!
12
z=4
Vvedite chislo!
16
z=5
Vvedite chislo!
5
z=6
Vvedite chislo!
8
z=7
Vvedite chislo!
3
z=8
Vvedite chislo!
6
z=7
Vvedite chislo!
1
z=6
Vvedite chislo!
2
z=5
Vvedite chislo!
3
z=4
Vvedite chislo!
4
z=3
Vvedite chislo!
5
z=2
Vvedite chislo!
6
z=1
Vvedite chislo!
7
z=0