Optimalizační metody 2/3
4) Výrazové invarianty v cyklu
for i := 1 to 100 do
  a[i] := p*q/r + i
x := p*q/r
for i := 1 to 100 do
  a[i] := x + i
7/43
5) Rozbalení cyklu
for i := 1 to 100 do
begin
  write(x[i, 1]);
  write(x[i, 2]);
end;
for i := 1 to 100 do
begin
  for j := 1 to 2 do
    write(x[i, j]);
end;