Решение задачи №3 из главы 11

Задача 3 Глава 11

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

Решение:

var a, b : integer;
begin
  a := 1;

  while a <= 15 do
  begin
    b := a;
    write('Enter the number: ');
    readln(a);
    if a <= 15 then
      writeln(a + b);
  end;

  readln();
end.

Консоль:

Enter the number: 5
6
Enter the number: 7
12