{Gabor Karina

"Mihai Viteazul" National College, Romania

Code: 2112}

var

f,g:text;

u1,u2,q,d,n,l,i,j,k:integer;

b,x,z,y,c,a:array [1..10,1..10] of integer;

procedure zero(n:byte);

var i,j:byte;

begin

for i:=1 to n do

for j:=1 to n do

c[i,j]:=0;

end;

procedure scrie(c:integer);

begin

if(c>0) then

write(g,chr(c))

else

write(g,chr(27+c));

end;

begin

assign(f,'input.txt');

reset(f);

assign(g,'output.txt');

rewrite(g);

for q:=1 to 5 do

begin

read(f,n);

for j:=1 to n div 2 do

read(f,x[1,j]);

for j:=1 to n div 2 do

read(f,x[2,j]);

for i:=1 to 2 do

for j:=1 to 2 do

read(f,a[i,j]);

d:=(a[1,1]*a[2,2])-(a[1,2]*a[2,1]);

if d=0 then

writeln('NO')

else

begin

b[1,1]:=a[2,2] div d;

b[1,2]:=-a[1,2] div d;

b[2,1]:=-a[2,1] div d;

b[2,2]:=a[1,1] div d;

end;

for l:=1 to n div 2 do

Begin

z[1,1]:=x[1,l];

z[2,1]:=x[2,l];

zero(2);

for i:=1 to 2 do

for j:=1 to 1 do

for k:=1 to 2 do

c[i,j]:=c[i,j]+b[i,k]*z[k,j];

if c[1,1] mod 27=0 then write(g,' ')

else

begin

u2:=ord('A')+(c[1,1]) mod 27-1;

scrie(u2);

end;

if c[2,1] mod 27=0 then write(g,' ') else begin

u1:=ord('A')+(c[2,1]) mod 27-1;

scrie(u1); end;

end;

writeln(g);

end;

close(f);

close(g);

end.