program test;

{$MODE DELPHI}

procedure Karta(X : Integer; var Y : string);
begin
  case X of
    0 : Y := 'dwojka';
    1 : Y := 'trojka';
    2 : Y := 'czworka';
    3 : Y := 'piatka';
    4 : Y := 'szostka';
    5 : Y := 'siodemka';
    6 : Y := 'osemka';
    7 : Y := 'dziewiatka';
    8 : Y := 'dziesiatka';
    9 : Y := 'walet';
    10 : Y := 'dama';
    11 : Y := 'krol';
    12 : Y := 'as';
  end;
end;

var
  S : string;
begin
  Karta(3, S);
  Writeln(S);
  Readln;
end.