Дано n (3<=n<=10^6) и n вещественных чисел a1,a2...an.Найти их сглаженные значения b1,b2,...bn, где b1=(a1+a2)/2 bi=(ai-1 + ai + ai-1)/2 (i=2...N-1) bn=(aN-1 + aN)/2 - Pascal(Паскаль)

var i,n:integer;
a,b,k:real;
begin
write('n='); {3<=n<=10^6}
readln(n);
writeln('введите первое a ');
readln(a);
k:=a;
for i:=2 to n do
begin
Writeln('введите следующее a');
readln(a);
b:=(a+k)/2;
writeln(b);
k:=a;
end;
readln;
end.