Из частей массива А, состоящего из 25 элементов, сформировать массив D

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 ilt;=10

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

 if igt;10

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

 write(d[i],' ');

end;

end.

PascalABC 3.4.2