Решить в паскале из элементов массива 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.