S:=X[1]+X[N]; for k:=1 to N do begin X[k]:=X[k]+X[k]+S end;
S:=X[1]*X[N]; for k:=1 to N do begin X[k]:=2*X[k]+S; for i:=1 to 3 do S:=S*2 end;
S:=X[1]+X[N]+3; for k:=1 to N do for m:=1 to N do X[k]:=X[k]+S;
T(N) = 5*N2 + 3*N + 1
T(N) = N3 - 3*N2 + N
T1(N) = N2 - N - 10 T2(N) = 4N + 40
S:=X[1]+X[N]; for k:=1 to N do X[k]:=X[k]+S;
S:=X[1]+X[N]; for k:=1 to N do begin for m:=1 to 5 do begin X[k]:=X[k]+S end end;
S:=X[1]+X[N]; for k:=1 to N do for m:=1 to N do for q:=1 to N do X[k]:=X[k]+X[q]+S;
S:=X[1]+X[N]; for k:=1 to N do for m:=2 to 2*N*N do begin X[k]:=X[k]+X[m]+S end;
k:=0; for i:=1 to N do if X[i] = R then begin k:=i; break end;