program sx201604;
var a:array[1..6] of char;
i:integer;
procedure swap(var x,y:char);
var temp:char;
begin
temp:=x; x:=y; y:=temp;
end;
begin
for i:=1 to 6 do
a[i]:=chr(i*2+ord( 'A' ));
for i:=l to 3 do
swap(a[i],a[7-i]);
for i:=1 to 6 do write(a[i]);
end.
输出：MKIGEC