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

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

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

var i, a, b: integer;
begin
a:=1;
readln(i);
while (i<>0) do
begin
    if i<15 then 
    begin
        b:=a;
        a:=i;
        readln(i);
        write(i+a+b,' ');
    end;
    if i>15 then 
        break;
end;
end.