7 lines
140 B
ObjectPascal
7 lines
140 B
ObjectPascal
|
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.
|