Задание 2 Урок 11

Задание 2 Урок 11:

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

var a, p: integer;
begin
  a := 0;
  p := 0;
  while (a <= 15) do
    begin
      write('Введите целое число: ');
      readln(a);
      if (a <= 15) then
        begin
            writeln('Сумма: ', a, ' + ', p, ' = ', a + p);
            p := a;
        end
      else
          break;
    end;

  writeln('------------------');
  writeln('Завершение работы.');
  readln();
end. 

Консоль:

Введите целое число: 10
Сумма: 10 + 0 = 10
Введите целое число: 1
Сумма: 1 + 10 = 11
Введите целое число: 2
Сумма: 2 + 1 = 3
Введите целое число: 5
Сумма: 5 + 2 = 7
Введите целое число: 8
Сумма: 8 + 5 = 13
Введите целое число: -10
Сумма: -10 + 8 = -2
Введите целое число: 20
------------------
Завершение работы.