Решите 4 Задачи, ЯЗЫК ПАСКАЛЬ, Безотлагательно, Я БУДУ ОЧЕНЬ БЛАГОДАРНАА

1)
program pervuy;
var B:array [1..11] of integer; x,s1:integer;
begin
s1:=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;
begin
p:=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;
begin
s2:=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;
begin
p1:=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.