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

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

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

var a, b, c, d : integer;

begin
  while (a < 15) do
    begin
      write('Enter an integer : ');
      readln(a);
        if (a mod 2 = 0) and (a < 16) then
          begin
            d := c;
            c := b;
            b := a;
            writeln(a, ' + ', d, ' = ', a + d);
          end
    end;
  readln();
end.