Задан массив заполненный случайным образом получить массив к каждому элементу исходного прибавить 13

если что то непонятно пиши

var a: array[1..12] reali: integerbeginfor i=1 do 12 doread(a[i])for i=1 do 12 dobegin;a[i]=a[i]+13end;

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

i:integer;

begin

for i:=1 to 10 do a[i]:=random(10)-9;

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

for i:=1 to 10 do a[i]:=a[i]+13;

writeln('Полученный массив: ',a)

end.