12 lines
190 B
ObjectPascal
12 lines
190 B
ObjectPascal
|
begin
|
|||
|
|
var arr: array['<27>'..'<27>'] of integer;
|
|||
|
|
arr['<27>'] := 2;
|
|||
|
|
assert(arr['<27>'] = 2);
|
|||
|
|
var c := '<27>';
|
|||
|
|
var i := 0;
|
|||
|
|
case c of
|
|||
|
|
'<27>': i := 3;
|
|||
|
|
'<27>': i := 5;
|
|||
|
|
end;
|
|||
|
|
assert(i = 5);
|
|||
|
|
end.
|