RosettaCodeData/Task/Collections/Pascal/collections-1.pas

var
  MyArray: array[1..5] of real;
begin
  MyArray[1] := 4.35;
end;