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

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

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

var a,b,i:integer;

begin
  while (i < 15) do
      begin
        a := b;
        b := i;
        writeln('vvedite zeloe chislo');
        readln(i);
        writeln('summa : ', a, '+', b, '+', i,'=', a + b + i);
      end;
       writeln('vvedenoe chislo i > 15 zikl zavershen');
  readln();
end.