Помогите! Информатика! Составьте прграммы! Хотя бы первые 2! Желательно 3! 100 баллов!

//1var   M: array [1..9] of integer = (3,4,7,9,19,23,24,27,39);  i: byte;begin  for i := 1 to 9 do write(M[i], ' ');end.//2var   M: array [1..5] of integer;  i: byte;  sum: integer;begin  randomize;  for i := 1 to 5 do   begin    write('M[',i,'] = ');     readln(M[i]);    sum := sum + M[i];  end;  writeln('Сумма = ', sum);end.//3var   M: array [1..9] of integer;  i: byte;begin  randomize;  for i := 1 to 9 do   begin    M[i] := random(100);    write(M[i], ' ');  end;end.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var M:=Arr(3,4,7,9,19,23,24,27,39); M.Println; //1   var a:=ReadArrReal('Введите 5 чисел:',5); Writeln('s=',a.Sum); // 2  var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println // 3end.Пример3 4 7 9 19 23 24 27 39Введите 5 чисел: 35 2.5 -61.4 8 17s=1.1n= 9-87 30 70 57 1 90 19 -3 -2Замечание: если надо программы отдельно - просто берем нужную строку.