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

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.

program task2_lesson11;
var i,a:integer;
  begin
       i:=1;
       a:=1;
       while i<=15 do
       begin
            writeln('Enter integer');
            readln(i);
            if (i<=15) then
            begin
                 writeln(i+a);
                 a:=i;
            end
            else
            break;
       end;
  readln();
  end.