begin
  var o1, o2, o3: object;
  if (o1 is word(var p1)) and (o2 is real(var p2)) 
    then
  else
    if (o3 is byte(var v1)) then
end.