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.
var
mas:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
begin
mas[i]:=i;
mas[i]:=mas[i]*2;
write (mas[i]:3);
end;
end.