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

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

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

var a,i:integer;

begin
  a := 1;
  while (a < 15) do
     begin
        i := a;
        writeln('vvedite zeloe chislo');
        readln(a);
        if( a < 15) then
          writeln('summa : ', i, '+', a, '=', a + i);
      end;
        writeln('vvedenoe chislo a > 15 zikl zavershen');
  readln();
end.