program ideone;
 
//Метод печати массива на экран
procedure print(arr : array of integer);
var i : integer;
begin
	for i := 0 to length(arr)-1 do write(' ', arr[i]);
	writeln;
end;
 
//Процедура сложения массивы
procedure ArrayAddition(var arr_1, arr_2, arr_sum : array of integer; N1, N2 : integer);
var i : integer;
begin
   if( N1 = N2) then 
      begin
		for i := 0 to N1 do arr_sum[i] := arr_1[i] + arr_2[i];
		print(arr_sum);  //Вывод массива arr_sum (cумма массивов arr_1 и arr_2)
      end
    else //Если N1 не равно N2, то массивы сложить нельзя из-за того что какие-то элементы не имеют пары
	  write('Невозможно сложить массивы из-за разного размера');
end;
 
//генерирует числа в диапазоне [first; last]
function getRandomNumber(first, last : integer): integer;
begin
  getRandomNumber := random(last - first + 1) + first;
end;
 
//Объявление динамических массив
var arr_1 : array of integer; 
    arr_2 : array of integer; 
    arr_sum : array of integer; 
    N1 : integer; //размер массива arr_1
    N2 : integer; //размер массива arr_2
     i : integer;  //индекс для массивов
begin
    Randomize;
    {
	write(' Введите размер 1-го массива: '); readln(N1);
	write(' Введите размер 2-го массива: '); readln(N2);
	}
	N1 := 5;  N2 := 5;
    SetLength(arr_1, N1); //выделяем память под N1 элементов для массива arr_1
    SetLength(arr_2, N2); //выделяем память под N2 элементов для массива arr_2
 
    //Ввод массива arr_1
    for i := 0 to Length(arr_1) - 1 do begin
      // write('arr_1[',i,'] = '); readln(arr_1[i]);
      // arr_1[i] := 2 * i + 1;
      arr_1[i] := getRandomNumber(-10, 10); //генерируем случайное число в диапазоне -10 до 10
    end;
    //Ввод массива arr_2
    for i := 0 to Length(arr_2) - 1 do begin
      // write('arr_2[',i,'] = '); readln(arr_2[i]);
      // arr_2[i] := i * i - 2 * i + 2;
      arr_2[i] := getRandomNumber(-10, 10); //генерируем случайное число в диапазоне -10 до 10
    end;
 
    print(arr_1);  //Вывод массива arr_1
    print(arr_2);  //Вывод массива arr_2
    SetLength(arr_sum, N1); //выделяем память под массив суммы
    ArrayAddition(arr_1, arr_2, arr_sum, N1, N2); //вызываем метод сложение (может возникнуть fail)
end.

cHJvZ3JhbSBpZGVvbmU7CgovL9Cc0LXRgtC+0LQg0L/QtdGH0LDRgtC4INC80LDRgdGB0LjQstCwINC90LAg0Y3QutGA0LDQvQpwcm9jZWR1cmUgcHJpbnQoYXJyIDogYXJyYXkgb2YgaW50ZWdlcik7CnZhciBpIDogaW50ZWdlcjsKYmVnaW4KCWZvciBpIDo9IDAgdG8gbGVuZ3RoKGFyciktMSBkbyB3cml0ZSgnICcsIGFycltpXSk7Cgl3cml0ZWxuOwplbmQ7CgovL9Cf0YDQvtGG0LXQtNGD0YDQsCDRgdC70L7QttC10L3QuNGPINC80LDRgdGB0LjQstGLCnByb2NlZHVyZSBBcnJheUFkZGl0aW9uKHZhciBhcnJfMSwgYXJyXzIsIGFycl9zdW0gOiBhcnJheSBvZiBpbnRlZ2VyOyBOMSwgTjIgOiBpbnRlZ2VyKTsKdmFyIGkgOiBpbnRlZ2VyOwpiZWdpbgogICBpZiggTjEgPSBOMikgdGhlbiAKICAgICAgYmVnaW4KCQlmb3IgaSA6PSAwIHRvIE4xIGRvIGFycl9zdW1baV0gOj0gYXJyXzFbaV0gKyBhcnJfMltpXTsKCQlwcmludChhcnJfc3VtKTsgIC8v0JLRi9Cy0L7QtCDQvNCw0YHRgdC40LLQsCBhcnJfc3VtIChj0YPQvNC80LAg0LzQsNGB0YHQuNCy0L7QsiBhcnJfMSDQuCBhcnJfMikKICAgICAgZW5kCiAgICBlbHNlIC8v0JXRgdC70LggTjEg0L3QtSDRgNCw0LLQvdC+IE4yLCDRgtC+INC80LDRgdGB0LjQstGLINGB0LvQvtC20LjRgtGMINC90LXQu9GM0LfRjyDQuNC3LdC30LAg0YLQvtCz0L4g0YfRgtC+INC60LDQutC40LUt0YLQviDRjdC70LXQvNC10L3RgtGLINC90LUg0LjQvNC10Y7RgiDQv9Cw0YDRiwoJICB3cml0ZSgn0J3QtdCy0L7Qt9C80L7QttC90L4g0YHQu9C+0LbQuNGC0Ywg0LzQsNGB0YHQuNCy0Ysg0LjQty3Qt9CwINGA0LDQt9C90L7Qs9C+INGA0LDQt9C80LXRgNCwJyk7CmVuZDsKCi8v0LPQtdC90LXRgNC40YDRg9C10YIg0YfQuNGB0LvQsCDQsiDQtNC40LDQv9Cw0LfQvtC90LUgW2ZpcnN0OyBsYXN0XQpmdW5jdGlvbiBnZXRSYW5kb21OdW1iZXIoZmlyc3QsIGxhc3QgOiBpbnRlZ2VyKTogaW50ZWdlcjsKYmVnaW4KICBnZXRSYW5kb21OdW1iZXIgOj0gcmFuZG9tKGxhc3QgLSBmaXJzdCArIDEpICsgZmlyc3Q7CmVuZDsKCi8v0J7QsdGK0Y/QstC70LXQvdC40LUg0LTQuNC90LDQvNC40YfQtdGB0LrQuNGFINC80LDRgdGB0LjQsgp2YXIgYXJyXzEgOiBhcnJheSBvZiBpbnRlZ2VyOyAKICAgIGFycl8yIDogYXJyYXkgb2YgaW50ZWdlcjsgCiAgICBhcnJfc3VtIDogYXJyYXkgb2YgaW50ZWdlcjsgCiAgICBOMSA6IGludGVnZXI7IC8v0YDQsNC30LzQtdGAINC80LDRgdGB0LjQstCwIGFycl8xCiAgICBOMiA6IGludGVnZXI7IC8v0YDQsNC30LzQtdGAINC80LDRgdGB0LjQstCwIGFycl8yCiAgICAgaSA6IGludGVnZXI7ICAvL9C40L3QtNC10LrRgSDQtNC70Y8g0LzQsNGB0YHQuNCy0L7QsgpiZWdpbgogICAgUmFuZG9taXplOwogICAgewoJd3JpdGUoJyDQktCy0LXQtNC40YLQtSDRgNCw0LfQvNC10YAgMS3Qs9C+INC80LDRgdGB0LjQstCwOiAnKTsgcmVhZGxuKE4xKTsKCXdyaXRlKCcg0JLQstC10LTQuNGC0LUg0YDQsNC30LzQtdGAIDIt0LPQviDQvNCw0YHRgdC40LLQsDogJyk7IHJlYWRsbihOMik7Cgl9CglOMSA6PSA1OyAgTjIgOj0gNTsKICAgIFNldExlbmd0aChhcnJfMSwgTjEpOyAvL9Cy0YvQtNC10LvRj9C10Lwg0L/QsNC80Y/RgtGMINC/0L7QtCBOMSDRjdC70LXQvNC10L3RgtC+0LIg0LTQu9GPINC80LDRgdGB0LjQstCwIGFycl8xCiAgICBTZXRMZW5ndGgoYXJyXzIsIE4yKTsgLy/QstGL0LTQtdC70Y/QtdC8INC/0LDQvNGP0YLRjCDQv9C+0LQgTjIg0Y3Qu9C10LzQtdC90YLQvtCyINC00LvRjyDQvNCw0YHRgdC40LLQsCBhcnJfMgogICAgCiAgICAvL9CS0LLQvtC0INC80LDRgdGB0LjQstCwIGFycl8xCiAgICBmb3IgaSA6PSAwIHRvIExlbmd0aChhcnJfMSkgLSAxIGRvIGJlZ2luCiAgICAgIC8vIHdyaXRlKCdhcnJfMVsnLGksJ10gPSAnKTsgcmVhZGxuKGFycl8xW2ldKTsKICAgICAgLy8gYXJyXzFbaV0gOj0gMiAqIGkgKyAxOwogICAgICBhcnJfMVtpXSA6PSBnZXRSYW5kb21OdW1iZXIoLTEwLCAxMCk7IC8v0LPQtdC90LXRgNC40YDRg9C10Lwg0YHQu9GD0YfQsNC50L3QvtC1INGH0LjRgdC70L4g0LIg0LTQuNCw0L/QsNC30L7QvdC1IC0xMCDQtNC+IDEwCiAgICBlbmQ7CiAgICAvL9CS0LLQvtC0INC80LDRgdGB0LjQstCwIGFycl8yCiAgICBmb3IgaSA6PSAwIHRvIExlbmd0aChhcnJfMikgLSAxIGRvIGJlZ2luCiAgICAgIC8vIHdyaXRlKCdhcnJfMlsnLGksJ10gPSAnKTsgcmVhZGxuKGFycl8yW2ldKTsKICAgICAgLy8gYXJyXzJbaV0gOj0gaSAqIGkgLSAyICogaSArIDI7CiAgICAgIGFycl8yW2ldIDo9IGdldFJhbmRvbU51bWJlcigtMTAsIDEwKTsgLy/Qs9C10L3QtdGA0LjRgNGD0LXQvCDRgdC70YPRh9Cw0LnQvdC+0LUg0YfQuNGB0LvQviDQsiDQtNC40LDQv9Cw0LfQvtC90LUgLTEwINC00L4gMTAKICAgIGVuZDsKICAgIAogICAgcHJpbnQoYXJyXzEpOyAgLy/QktGL0LLQvtC0INC80LDRgdGB0LjQstCwIGFycl8xCiAgICBwcmludChhcnJfMik7ICAvL9CS0YvQstC+0LQg0LzQsNGB0YHQuNCy0LAgYXJyXzIKICAgIFNldExlbmd0aChhcnJfc3VtLCBOMSk7IC8v0LLRi9C00LXQu9GP0LXQvCDQv9Cw0LzRj9GC0Ywg0L/QvtC0INC80LDRgdGB0LjQsiDRgdGD0LzQvNGLCiAgICBBcnJheUFkZGl0aW9uKGFycl8xLCBhcnJfMiwgYXJyX3N1bSwgTjEsIE4yKTsgLy/QstGL0LfRi9Cy0LDQtdC8INC80LXRgtC+0LQg0YHQu9C+0LbQtdC90LjQtSAo0LzQvtC20LXRgiDQstC+0LfQvdC40LrQvdGD0YLRjCBmYWlsKQplbmQu