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

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

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

var a,i: integer;
begin
     a := 1; // первое предыдущие

     while a <= 15 do
     begin
          i:=a; // запоминаем предыдущие
          writeln('Enter an integer: ');
          readln(a); // пользователь вводит целое число
          if a > 15 then
             break; // если пользователь ввёл число > 15, цикл завершается
          writeln(i + a); // в консоль выводится сумма ранее введённого числа и введённого числа
     end;

     readln();

end.