14 lines
237 B
ObjectPascal
14 lines
237 B
ObjectPascal
|
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> Object
|
|||
|
|
var
|
|||
|
|
i: integer;
|
|||
|
|
r: real;
|
|||
|
|
o: object;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
o := i;
|
|||
|
|
writeln(o.GetType);
|
|||
|
|
o := r;
|
|||
|
|
writeln(o.GetType);
|
|||
|
|
if o.GetType=typeof(real) then
|
|||
|
|
writeln('<27> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> o - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>');
|
|||
|
|
end.
|