var a:array[1..10] of integer; i,n1,n2:integer;p,q:real;
   begin
   for i:=1 to 10 do
   read(a[i]);
   readln;
   for i:=1 to 10 do
   begin
   n1:=2*i;
   n2:=2*i-1;
   begin
   p:=0;q:=0 ;
   if i=n1 then
   begin
   p:=p+a[i];
   write(a[i],p);
   end;
   if i=n2 then
   begin
   q:=q+a[i];write(a[i]);
   end;
   end;
   write(q/5);
   end;
   end.
若还有错,请多多包含

for n1:=2*i,n2:=2*i-1 do
错误在这里,FOR 语句格式是for [变量]=[常数]to[常数]do

楼主将FOR循环的概念弄懂了吗？多看书，这些都是初级书上有的。。希望能靠自己改正！

顺祝楼主在编程方面能有所成就~~