14 lines
214 B
ObjectPascal
14 lines
214 B
ObjectPascal
type TRec = record
|
|
a : integer;
|
|
end;
|
|
var arr : array[1..3] of TRec;
|
|
const i = 5;
|
|
|
|
begin
|
|
arr[2+i*2-abs(3)-6*(i-4)].a := 23;
|
|
with typeof(integer) do
|
|
begin
|
|
writeln(Assembly);
|
|
end;
|
|
readln;
|
|
end. |