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

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

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

var a, k, q, i: integer;
  begin
    a:=0;
    k:=0;
    q:=0;
    i:=1;
    while a<=15 do
      begin
        readln(a);
        if (a<=15) then
          writeln(a+k+q)
        else
          break;
        if ((i mod 2)=0) then
          q:=a
        else
          k:=a;
        i:=i+1;
      end;
    readln();
  end.