Глава 11.Задача №2.Пользователь вводит целые числа. Пока он не введёт большее 15, в ответ на каждое введённое число выводи

Задача №2 .Глава 11

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

program pascal_11_2;
var a ,b ,sum_digits : integer;
begin
while( a < 15 ) do
begin
  b := a; // запись старого значения
  writeln( 'input digit: ' );
  readln( a ); // считываем 
  sum_digits := a + b; // суммируем введенное число и предыдущее
  writeln( sum_digits ); // выводим 
end;
writeln( 'end' );
readln();
end.