Постройте блок-схему алгоритма, записанного на алгоритмическом языке и вычислите результат работы

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandomReal(10,-99,99);

  var c:=mas.Select(t->round(t*100) / 100).ToArray; c.Println;

  var b:=c.Min;

  c[7]:=b;

  c.Println;
end.

Program m2

begin

var n:=readinteger('Введите количество n=');

var (b,a,c):=(3,1,2);

var k:real:=0;

for var i:=1 to n do

begin

 k:=k+b/(a*c);

b:=b+3;a:=a+1;

c:=c+2;

end;

Writeln('Сумма=',k);
end.

Program m3;

begin

  var n:=readinteger('Введите количество n=');

  var c:real:=0;

  var b:=1;

for var i:=1 to n do

begin

c:=c+b**2;

b:=b+1;

end;

var y:=n*(n+1)*(2*n+1)/6;

if c=y then

writeln('тождество верно')

else writeln('тождество не верно')

end.

Var a: array of real;
    i,n,m,k,p: integer;
    s: real;
begin
  write('n = ');  readln(n);
  setlength(a,n);
  s:=1;
  randomize;
  writeln('массив:');
  for i:=0 to n-1 do
  begin
    a[i]:=random(200)/1000;
    s:=s*a[i];
    write(a[i]:5:3,' ');
  end;
  writeln;
  s:=power(s,1/n);
  p:=0; m:=0; k:=0;
  writeln('среднее геометрическое: ',s);
  for i:=0 to n-1 do
  begin
    if a[i]<s then inc(m);
    if a[i]>s then inc(k);
    if a[i]=s then inc(p);
  end;  
  writeln('меньше: ',m,'  равно: ',p,'   больше: ',k);
end.

n = 10
массив:
0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017 
среднее геометрическое: 0.0854754255570728
меньше: 3  равно: 0   больше: 7