Помогите надо сделать программу на PASCAL ABC:
1)Вставить наименьший элемент массива вещественных чисел на 7 место.
2)Вычислить: 3/(1*2)+6/(2*4)+9/(3*6)+12/(4*8)+…(программа нужна для ее решения)
3)Проверить тождество: 1^2+2^2+3^2+…+n^2=n*(n+1)*(2*n+1)/6(программа нужна для ее решения)

//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 m2beginvar n:=readinteger('Введите количество n=');var (b,a,c):=(3,1,2);var k:real:=0;for var i:=1 to n dobegin 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 dobeginc:=c+b**2;b:=b+1;end;var y:=n*(n+1)*(2*n+1)/6;if c=y thenwriteln('тождество верно')else writeln('тождество не верно')end.