leff[1]:=7;
cooper[161]:=19;
i:=1;
j:=162;
k:=3;
leff[2]:=j;
cooper[162]:=k;
leff[k]:=161;
j:=j+1;
cooper[j]:=k+1;
leff[k+1]:=j;
cooper[j+1]:=k+2;
z:=2;
leff[k+z]:=k+k;
cooper[j+z]:=k-i;
temp1:=leff[z];
leff[6]:=temp1;
cooper[j+k]:=cooper[j-1];
temp1:=leff[cooper[j]];
write('temp1 is ',temp1);writeln;
temp2:=cooper[leff[z]];
write('temp2 is ',temp2);writeln;
leff[cooper[j]+cooper[j+k]]:=99;
cooper[leff[k]+leff[cooper[j+1]]]:=101;

{now we print out the leff array }
i:=1;
while (i<=7) do begin
write('i is ',i, 'leff [i] = ',leff[i]);
writeln;
i:=i+1;
end;
{now we print out the cooper array }
i:=161;
while (i<=167) do begin
write('i is ',i, 'cooper [i] = ',cooper[i]);
writeln;
i:=i+1;
end;
end.
end.