помогите решить в Паскале  
Из элементов массива D сформировать массив A  той же размерности по правилу: первые 10 элементов находятся по формуле Ai = Di+i, остальные по формуле Ai = Di-i.

const
    n = 30;

var
    i: integer;
    a, d: array[1..n]of integer;

begin
    for i := 1 to n do
    begin
        d[i] := random(100);
        if i <= 10 then
            a[i] := d[i] + i
        else
            a[i] := d[i] - i;
        write(d[i]:4, ' ');
    end;
   
    writeln();
    for i := 1 to n do
        write(a[i]:4, ' ');
end.

если правильно, то поставь лучшее решение пожалуйста, надо для статуса) заранеее спасибо)

спасибо