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

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

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

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

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

Введите число: 5
6
Введите число: 3
8
Введите число: 1
4
Введите число: 17