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

//1
var
  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.

//2
var
  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.

//3
var
  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.