var a:array [1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(6)+1;
writeln(a);
for i:=1 to 12 do a[i]:=a[i]*2;
writeln(a)
end.
var a:array [1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(6)+1;
writeln(a);
for i:=1 to 12 do a[i]:=a[i]*2;
writeln(a)
end.