Массив из 8 целых чисел сформирован случайным образом на промежутке [-8,8] выведите на экран элементы исходного массива, увеличив их на 10

var a:array [1..8] of integer;

i:integer;

begin

for i:=1 to 8 do a[i]:=random(17)-8;

writeln('Исходный массив: ',a);

for i:=1 to 8 do a[i]:=a[i]*10;

writeln('Преобразованный массив: ',a)

end.