В массиве из 12 целых положительных чисел от 0 до

Вероятны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.

a,i,m(12) as integer

for i=1 to 12 do

readln(m(i));

for i=1 to 6 do begin

a:=m(i);

m(i):=m(13-i);

m(12-i):=a;

end;

for i=1 to 12 do

writeln(m(i));

end.

Если что-то не понятно либо выводит ошибку - пишите.