{}

uses crt;
type znaki=array[2..14] of integer;
type mastj=array[1..4] of integer;
var zn:znaki;
    m:mastj;
    i,j:integer;

    procedure pech1(var i:integer);
    begin
     case i of
       2..10:write(i:5);
       11:write('    J');
       12:write('    Q');
       13:write('    K');
       14:write('    A');
     end;
    end;

    procedure pech2(var j:integer);
    begin
     case j of
       1:write(chr(3));
       2:write(chr(4));
       3:write(chr(5));
       4:write(chr(6));
     end;
    end;

    procedure pech(var i,j:integer);
    begin
      pech1(i);
      pech2(j);
    end;

begin
clrscr;
for i:=2 to 14 do zn[i]:=i;
for j:=1 to 4 do m[j]:=j;
writeln('            0(1)                      0(13) ');writeln;
pech(zn[13],m[2]);pech(zn[4],m[4]);pech(zn[11],m[3]);pech(zn[8],m[2]);write('   ');
pech(zn[5],m[2]);pech(zn[13],m[4]);pech(zn[14],m[1]);pech(zn[3],m[4]);
writeln; writeln;
pech(zn[8],m[4]);pech(zn[10],m[4]);pech(zn[3],m[4]);pech(zn[2],m[3]);write('   ');
pech(zn[4],m[2]);pech(zn[13],m[1]);pech(zn[5],m[4]);pech(zn[11],m[1]);
writeln; writeln;
pech(zn[6],m[4]);pech(zn[2],m[4]);pech(zn[5],m[3]);pech(zn[8],m[1]);write('   ');
pech(zn[6],m[3]);pech(zn[10],m[2]);pech(zn[6],m[2]);pech(zn[10],m[1]);
writeln; writeln;
pech(zn[2],m[1]);pech(zn[8],m[3]);pech(zn[14],m[4]);pech(zn[7],m[1]);write('   ');
pech(zn[14],m[3]);pech(zn[9],m[3]);pech(zn[7],m[4]);pech(zn[5],m[1]);
writeln; writeln;
pech(zn[14],m[2]);pech(zn[6],m[1]);pech(zn[10],m[3]);pech(zn[4],m[3]);write('   ');
pech(zn[12],m[3]);pech(zn[2],m[2]);pech(zn[3],m[1]);pech(zn[12],m[1]);
writeln; writeln;
pech(zn[7],m[3]);pech(zn[7],m[2]);pech(zn[12],m[2]);pech(zn[11],m[2]);write('   ');
pech(zn[11],m[4]);pech(zn[9],m[1]);pech(zn[4],m[1]);pech(zn[12],m[4]);
writeln; writeln;
pech(zn[9],m[4]);pech(zn[13],m[3]);pech(zn[9],m[2]);pech(zn[3],m[3]);write('   ');
readkey;
end.