Задание 5 Урок 11

Задание 5 Урок 11

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

var i,i1 : integer;
begin
    i := 0;
    i1 := 0;
    while (i <= 15) do
    begin
      write('Введите целое число и нажмите ENTER:');
      readln(i);
      writeln('Сумма предыдущего и введённого значений равна: ',i1 + i);
      i1 := i;
    end;
    write('Цикл завершён, нажмите ENTER');
    readln();
end.