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

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

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

var a, b, c: integer;
begin
  a := 0;
  b := 0;
  c := 0;

  while (a <= 15) do
    begin
        c := b;
        b := a;
        write('Введите целое число: ');
        readln(a);

        if (a <= 15) then
            writeln('Сумма: ', a, ' + ', b, ' + ', c, ' = ', a + b + c);
    end;

  writeln('-----');
  writeln('Пока!');
  readln();
end.

Консоль:

Введите целое число: 1
Сумма: 1 + 0 + 0 = 1
Введите целое число: 2
Сумма: 2 + 1 + 0 = 3
Введите целое число: 3
Сумма: 3 + 2 + 1 = 6
Введите целое число: 4
Сумма: 4 + 3 + 2 = 9
Введите целое число: 16
-----
Пока!