var a,b:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(90)+10;
b[i]:=random(90)+10;
end;
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=1 to 10 do
write(b[i],' ');
writeln;
for i:=1 to 10 do
begin
b[1]:=b[i]*2;
write(b[i],' ');
end;
end.
