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

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

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

var a, b, c: integer;
begin
  b := 1; // начальное значение для предыдущего числа
  c := 1; // начальное значение для пред-предыдущего числа
  while (1 = 1) do // делаем бесконечный цикл
  begin
    write ('Введите число: ');
    readln(a);
    if (a <= 15) then // проверка на ввод числа больше 15
    begin
      if (a mod 2 = 0) then // проверка на четность
        writeln (a, ' + ', c , ' = ',  a + c) // выводим сумму введенного и пред-предыдущего чисел
    end else // если введенное число больше 15
      break; // прерываем цикл
    c := b;  // запоминаем пред-предыдуще
    b := a; // запоминаем предыдущее
  end;
  readln();
end.  
 

Вывод в консоли:

Введите число: 2
2 + 1 = 3
Введите число: 6
6 + 1 = 7
Введите число: 3
Введите число: 1
Введите число: 4
4 + 3 = 7
Введите число: 54