Объясните как делать , что за формулы со ссылками . и как рассчитать ? выполнить нужно № 2 и № 3

1.const   n=10; type vector = array [1..n] of integer; var b: vector;           max : integer; procedure intvector(n: integer; var a: vector); begin    for var i : = 1 to n do    a[i] : = random(100); end; procedure outvector(n: integer; a: vector); begin  for var i : = 1 to n do    begin      write(a[i]: 5); end; end; procedure srav (a: vector; n,g: integer); begin g : = a[1]; for var i: =1 to n do if (g < a[i]) then g: =a[i]; writeln (g); end; begin  intvector(n, b);   writeln;   outvector(n, b );   writeln;     srav(b,n, max);   writeln; end.2.  const  n = 10; type  vector = array [1..n] of integer; var  b: vector;         r,v : real;   procedure intvector(n: integer; var a: vector); begin  for var i : = 1 to n do      a[i] : = random(20); end; procedure outvector(n: integer; a: vector); begin    for var i : = 1 to n do    begin    write(a[i]: 5);     end; end; function srednee(a: vector; n: integer): real; begin  for var i : = 1 to n do    begin    result : = (result + a[i]);     end;   end; function kolvo(a: vector; g: real): real; begin  for var i : = 1 to n do     if (a[i] < (srednee(a, n)/10)) then result : = result + 1; end; begin  intvector(n, b);   writeln;   outvector(n, b );   writeln;   writeln ((srednee(b, n)/10): 5: 3);     r : = kolvo(b, v);   writeln(r); end.

Набрать воды в 3 литровый кувшин. вылить содержимое в 8 литровый кувшин набрать воды в 3 литровый кувшин. вылить содержимое в 8 литровый кувшин набрать воды в 3 литровый кувшин вылить содержимое в 8 литровый кувшин, оставив один литр в 3 литровом кувшине. опустошить 8 литровый кувшин вылить содержимое 3 литрового кувшина в 8 литровый набрать воды в 3 литровый кувшин вылить содержимое в 8 литровый кувшин набрать воды в 3 литровый кувшин вылить содержимое в 8 литровый кувшин вот весь алгоритм. , если