Создать массив строк из 5 элементов и вывести этот элемент прибавленный с считчиком mass[I] +i​

Var dlina: array [1..3] of integer;
begin
dlina[1]:=500;
dlina[2]:=400;
dlina[3]:=150;