Pascal 11 урок задача 2

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

var
i,  a: integer;
begin  
 while ( a < 15) do
  begin 
    i := a;
    WriteLn(' vvedite chislo');
    ReadLn(a);
    a := a + i;
    if (a < 15) then
    WriteLn(a);
   end;
end.