Решите 4 ЗАДАЧКИ, ЯЗЫК ПАСКАЛЬ, СРОЧНО, Я БУДУ ОЧЕНЬ БЛАГОДАРНАА

1) program pervuy;var B:array [1..11] of integer; x,s1:integer;begins1:=0; for x:=1 to 11 do  begin     b[x]:=random(72);     write(b[x],' ');      s1:=s1+b[x];  end;writeln(); writeln(s1)end.2) program pervuy;var c:array [1..15] of integer; y:integer; P:real;beginp:=1; for y:=1 to 15 do   begin      c[y]:=y*y;      write(c[y],',');    p:=p*c[y];   end; writeln();writeln(p)end.3)program pervuy;var k:array [1..9] of integer; z,s2:integer;begins2:=0; for z:=1 to 9 do   begin     k[z]:=random(41);     write(k[z],';');   s2:=s2+k[z];  end;writeln(); writeln(s2)end.4)program pervuy;var m:array [1..12] of integer; j:integer; p1:real;beginp1:=1;for j:=1 to 12 do   readln(m[j]);  for j:=1 to 12 do     begin      write(m[j],' ');      p1:=p1*m[j];    end; writeln();writeln(p1)end.