Помогите очень нужно
1. Найти сумму ряда: 5.6, 5.9, .. ,9.7
2.Сравнить, что больше сумма ряда 8.5, 8.6,...,40.9 или произведение чисел от 1 до 3 с шагом 0.25
3. Сформировать двумерный массив В размером 5*5, где элементы массива B[i, j] целые случайные числа в пределах [-5; 10]. Вывести элементы массива в виде матрицы.
4. Сформировать двумерный массив A размером N*M, где элементы массива A[i, j] - целые случайные числа в пределах [1; 30]. Найти сумму всех элементов массива. Вывести элементы массива в виде матрицы.

Если не будет работать какая-нибудь из них - отпиши, скину скрин с программой, мог удалить кое-что случайно при переносе

1) Program gsdn;Var k: integer;    z,n,i,l,s: real;Begink:=0;l:=5.6;s:=0;Repeatk:=k+1;n:=0.3;i:=l+(n*k);S:=i+s;Writeln(i);Until i=9.8;Writeln(s);end.2) Program afaf;Var k,h: integer;    z,n,i,l,s,y: real;begink:=0;h:=0;l:=8.5;s:=0;Repeatk:=k+1;n:=0.1;i:=l+(n*k);S:=i+s;Until i=40.9;k:=0;h:=0;l:=1;y:=1;Repeatk:=k+1;n:=0.1;i:=l+(n*k);y:=i*y;Until i=3;If y-s>0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 меньше произведения чисел от 1 до 3 с шагом 0.25');If y-s<0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 больше произведения чисел от 1 до 3 с шагом 0.25');If y-s=0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 равно произведению чисел от 1 до 3 с шагом 0.25');end.3) Program dsagsa;var i,j,y: integer;    B: Array[1..5,1..5] of integer;begin  For i:=1 to 5 do    For j:=1 to 5 do      begin        y:=random(16)-5;        B[i,j]:=y;      end;  For i:=1 to 5 do    begin      Write('(');      For j:=1 to 5 do        Write(B[i,j],' ');      Write(')');      Writeln;    end;end.4) program fagasg;var i,j,i1,j1,y,s: integer;    A: Array[1..50,1..50] of integer;begin  Writeln('Введите количество строк в массиве'); readln(i1);  Writeln('Введите количество столбцов в массиве');  readln(j1);  s:=0;  For i:=1 to i1 do    begin      Write('(');      For j:=1 to j1 do       begin          y:=random(30)+1;          A[i,j]:=y;          S:=A[i,j]+s;          Write(A[i,j],' ');        end;      Write(')');      Writeln;    end;end.Матрицы немного коряво вышли, ну и чуть-чуть быдло кода)