program pointerTest (output);

 TYPE
   IntPtr = ^Integer { pointer type for an integer variable}
	PosVals = 0..MAXINT; {integer subrange}
	APosVal = ^PosVals; { Pointer type for integer subrange}

	RealPtr = ^Real;  
	BoolPtr = ^Boolean;
	
	OneCourt = ^CourtType {Pointer type for enumerated type variabale}
	CourtType = (Racquetball, squash, handball, tennis, basketball);
	Res = ^OneRes;
	
begin
  writeln (' this is a test');
  end.