{ %FAIL } program toperator40; operator < (left, right: LongInt) res : Boolean; begin end; begin end.