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

Урок 11 Задача 5:

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

var a, b, c: integer; // в а будем записывать введенное число, в b - предыдущее введенное число
begin
  b := 1; // начальное значение для предыдущего числа
  c := 1; // начальное значение для пред-предыдущего числа
  while (a <= 15) do
  begin
    write ('Введите число: ');
    readln(a);
    if (a <= 15) then // проверка на ввод числа больше 15
      writeln (a, ' + ', b, ' + ', c , ' = ',  a + b + c); // выводится сумма; если а будет больше 15, условие не сработает и сумма выводиться не будет
    c := b;  // запоминаем пред-предыдуще
    b := a; // запоминаем предыдущее
  end;
  readln();
end.

Вывод в консоли:

Введите число: 5
5 + 1 + 1 = 7
Введите число: 3
3 + 5 + 1 = 9
Введите число: 8
8 + 3 + 5 = 16
Введите число: 34