Урок №11 Задание 2

Урок №11 Задание 2

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

program Pr11_2;
var a,b:integer;
begin
  a:=1;
  while (a<=15) do
    begin
      b:=a;
      writeln('Введите целое число: ');
      readln(a);
                if (a<=15) then writeln(a+b)
                else
                break;
    end;
  writeln('Цикл завершен!');
  readln();
end.

Консоль:

Введите целое число:
1
2
Введите целое число:
2
3
Введите целое число:
16
Цикл завершен!