prog;

var f : array [5] of real;
var g : array [-5..5] of real

begin
	var a : array [5] of real;
	var b : array [-5..5] of real

	a[4] := 123.5;
	b[-5] := 3e8;
	f[2] := b[-5];
	g[-5] := 123.125;
	b[0] := f[2];
	a[0] := b[0];
	a[0] := a[0];

	write f, g, a, b;

end;
end prog