напишите программу для удвоение значения каждого массива и выведите на экран.Дан фрагмент
for i:=1 to 12 do begin s:=2*x[i];
writeln('s=',s);
end;

program HelloWorld;vars: array [1..12] of integer;i : integer;beginfor i:=1 to 12 do begin read(s[i]); writeln(s[i]);end;writeln;for i:=1 to 12 dobegin s[i]:=s[i]*2; writeln(s[i]);end;end.