varmas:array[1..10]of integer;i:integer;beginfor i:=1 to 10 dobeginmas[i]:=i;mas[i]:=mas[i]*2;write (mas[i]:3);end;end.