13 lines
207 B
ObjectPascal
13 lines
207 B
ObjectPascal
|
//üя
|
|||
|
|
begin
|
|||
|
|
var arr: array['а'..'я'] of integer;
|
|||
|
|
arr['д'] := 2;
|
|||
|
|
assert(arr['д'] = 2);
|
|||
|
|
var c := 'д';
|
|||
|
|
var i := 0;
|
|||
|
|
case c of
|
|||
|
|
'л': i := 3;
|
|||
|
|
'д': i := 5;
|
|||
|
|
end;
|
|||
|
|
assert(i = 5);
|
|||
|
|
end.
|