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

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

var a,b:integer;

begin
  a:=1;
  b:=1;
  while a<=15 do
  begin
    writeln('Vvedite celoe chislo:');
    readln(a);
    if(a>15) then break;
    writeln(a+b);
    b:=a;
  end;
end.   

Консоль:

Vvedite celoe chislo:
5

6
Vvedite celoe chislo:
6

11
Vvedite celoe chislo:
13

19
Vvedite celoe chislo:
45