mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:47:58 +02:00
10 lines
136 B
ObjectPascal
10 lines
136 B
ObjectPascal
{$r+}
|
|
var
|
|
a1 : array[0..1,0..1] of word;
|
|
a2 : array[0..1,0..1] of longint;
|
|
i,j,l,n : longint;
|
|
|
|
begin
|
|
a1[i,j]:=a2[l,n];
|
|
end.
|