var b:array [1..10] of integer;
i,s,a,c:integer;
begin
s:=0;
writeln ('Введите число a');
readln (a);
writeln ('Заполните массив');
for i:=1 to 10 do begin
write ('b[',i,']=');
read (b[i]);
end;
for i:=1 to 10 do
if b[i]>0 then s:=s+b[i];
writeln ('Удвоенная сумма положительных элементов равна ',s*2);
writeln ('Элементы большие ',a,' и кратные 3');
for i:=1 to 10 do
if (b[i]>a) and (b[i] mod 3=0) then 
writeln (b[i]);
writeln ('Новый массив ,мосле проделанных действий №2');
for i:=1 to 10 do
if (i mod 2 =0) then b[i]:=b[i]*b[i]
else b[i]:=b[i]-1;
for i:=1 to 10 do
write (b[i],' ');
writeln ;
writeln ('Новый массив ,мосле проделанных действий №3');
c:=b[10];
b[10]:=b[3];
b[3]:=c;
for i:=1 to 10 do
write (b[i],' ');

end.