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.