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

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

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

var z, k, a, i, q, p, t:integer;
  begin
    i:=1;
    k:=0;
    z:=5;
    while z>-1 do
      begin
        readln(a);
        writeln();
        if ((i mod 4) = 1) then
           begin
           k:=a;
           writeln('a=',k);
           end;
        if ((i mod 4) = 2) then
           begin
           q:=a;
           writeln('a=',q);
           end;
        if ((i mod 4) = 3) then
           begin
           p:=a;
           writeln('a=',p);
           end;
        if ((i mod 4) = 0) then
           begin
           t:=a;
           writeln('a=',t);
           end;
        if ((k<15) and (q<15) and (p<15) and (t<15)) then
           z:=z-1
        else
           z:=z+1;
        writeln();
        writeln('z=',z);
        writeln();
        writeln ('k=',k,'  ','q=',q,'  ','p=',p,'  ','t=',t);
        writeln();
        i:=i+1;

      end;

    readln();
  end.