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

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

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

program Project1;
var a,c,b: integer;
begin
 a:=1; 
 b:=1;  
 while (c<= 15) do
 begin
  writeln('vvedite celoe chislo:'); 
  readln(c);  
   if c>15 then   
   break;
  writeln ('summa:' ,a,'+',b,'+',c,'=',a+b+c);
  b:=a;
  a:=c;
  end;
  writeln('poka');
end.  

Консоль:

vvedite celoe chislo:
8
summa:1+1+8=10
vvedite celoe chislo:
4
summa:8+1+4=13
vvedite celoe chislo:
2
summa:4+8+2=14
vvedite celoe chislo:
7
summa:2+4+7=13
vvedite celoe chislo:
18
poka