Заполнить массив с именем mas1 по формуле |2i+1,5| и вввести эти значения на экран.Размерность массива 10,все элементы вещественного типа

program pask;varmas1: array [1..10] of real;i: byte;beginfor i:=1 to 10 dobeginmas1[i]:=abs(2*i+1.5);writeln('mas1[',i,'] = ',mas1[i]);end;end.