Увеличить на 4 все элементы в первой половине массиваA (считать, что в массиве чётное число элементов). Размер массива и значенияэлементов массива – произвольные.

Program primer;
Uses crt;

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

begin clrscr;
      randomize;
      write(Pazmer massiva  = );
      readln(n);

      for i:=1 to n do
      a[i]:= random(100)-50;

      for i:=1 to n do
      write(a[i]:5);

      writeln;
      writeln;

      for i:=1 to (n div 2) do
      write((a[i]+4):5);
     
      for i:=((n div 2)+1) to n do
      write(a[i]:5);
      readln;
end.