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

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