var a:array[1..6] of integer;
b,c:integer;
begin
for b:=1 to 6 do
begin
write('Ââåäèòå a[',b,']=');read(a[b]);
end;
c:=a[1];  a[1]:=a[6]; a[6]:=c;
c:=a[2];  a[2]:=a[5]; a[5]:=c;
c:=a[3];  a[3]:=a[4]; a[4]:=c;
for b:=1 to 6 do
writeln('a[',b,']=',a[b]);
end.