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.
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.