program test;
{$MODE DELPHI}
type
	TArr1 = array[1..900000] of TObject;
	TArr2 = array[1..9] of TObject;
begin
writeln(sizeof(TArr1));
writeln(sizeof(TArr2));
end.