Из элементов массива а, состоящего из 25 элементов, сформировать массив d той же размерности по правилу: первые 10 элементов находятся по формуле di=ai+i, остальные - по формуле di=ai-i. (паскаль)

program raf105;

var

 a,d: array[1..25] of integer;

 i: integer;

begin

write('Массив A: ');

for i:=1 to 25 do

begin

 a[i]:= random(35,60);

 write(a[i],' ');

end;

writeln;

write('Массив D: ');

for i:=1 to 25 do

begin

 if i<=10

   then d[i]:=a[i]+i;

 if i>10

   then d[i]:=a[i]-i;

 write(d[i],' ');

end;

end.