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

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

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

var i, a: integer;
begin
    a:=1;                // запустили цикл while
    while a <= 15 do     // пока "а" меньше 15, выполняем тело программы

    begin
        write(' vvedite celoe chislo: ');   // просим пользователя ввести число
        readln(a);                          // запрос числа от пользователя

        if (a < 15) then                     { вложил дублирующее условие,
                                             что пока а меньше, то}
        begin
            writeln('otvet: ', a + i);       { сумма введенной переменной
                                              с переменной из предидущего цикла }
            i := a;        // запоминаем предидущую переменную
        end

        else               // иначе выход из цикла
            break;
    end;

    writeln('poka!');       // прощаемся
    readln();
end.

КОНСОЛЬ:

 vvedite celoe chislo: 10
otvet: 10
 vvedite celoe chislo: 15
poka!