prog;

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

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

	a[0] := 1231;
	b[2] := 1;
	f[3] := a[0];
	g[-5] := b[2];
	a[4] := b[5];
	b[3] := f[3];

	write f, g, a, b;

end;
end prog