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

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

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

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