{$codepage UTF8} TYPE Arreglo01=array[1..10] of byte; VAR A,B :Arreglo01; i:byte; BEGIN A[1]:=2; A[2]:=5;A[3]:=4;A[4]:=2;A[5]:=8; A[6]:=4; A[7]:=9;A[8]:=4;A[9]:=6;A[10]:=11; B:=A; for i:=1 to 10 do Writeln(B[i]) END.