program silly; procedure compare(i,j : integer); begin case (i>j) of true : begin end; false : begin end; end; end; begin end.