Даны два произвольные одномерные массивы целых чисел м1 и м2 с одинаковым количеством элементов. сформировать массив м3, элементами которого являются числа, образующиеся по формуле m3 [i] = m1 [i] + m2 [i].(си )

Var m1,m2,m3:array of integer;
i,n:integer;
begin
  write('Введите размер массивов');
  readln(n);
  setlength(m1,n);
  setlength(m2,n);
  setlength(m3,n);
  //Заполнение массивов
  for i:=0 to n-1 do begin
    m1[i]:=random(21)-10;
    m2[i]:=random(21)-10;
    m3[i]:= m1[i]+m2[i];
  end;
  //Вывод массивов
  for i:=0 to n-1 do write(m1[i]:4);
  writeln;
  for i:=0 to n-1 do write(m2[i]:4);
  writeln;
  for i:=0 to n-1 do write(m3[i]:4);
  writeln;
end.

Тестовое решение:
Введите размер массивов 10
   7 -10   9  -4   8  -6  10   4   6   2
  10  -3  -2  -7   1   9   2   3   5  -6
  17 -13   7 -11   9   3  12   7  11  -4