Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115,115]. Вывести полученный массив в строчку через три пробелами между элементами и найти сумму элементов полученного массива.

Program Pr1;uses crt;var mas:array[1..10] of integer; i,a:integer;Beginclrscr;a:=0;randomize;for i:=1 to 10 do mas[i]:=-115+random(231);for i:=1 to 10 do begin write(mas[i],' '); a:=a+mas[i]; end;writeln('Summa=',a);end.