TYPE
 Mast=(p,t,b,h);
 Value=(v6,v7,v8,v9,v10,vV,vD,vK,vT);
 Card=Record
       M:Mast;
       V:Value;
      end;
VAR
 Trump:Mast;
 Card1,Card2:Card;
 Tr_num,Card1_M,Card1_V,Card2_M,Card2_V:Byte;

FUNCTION Hit(C1,C2:Card;KM:Mast):Boolean;
 begin
  If ((Ord(C1.M)=Ord(C2.M)) and (Ord(C1.V)>Ord(C2.V))) or
     ((Ord(C1.M)=Ord(KM)) and (Ord(C2.M)<>Ord(KM))) then
     Hit:=true else Hit:=false;
 end;

BEGIN
 Repeat
  Write('Enter the trump suit number (p - 0, t - 1, b - 2, h - 3) ');
  ReadLn(Tr_num);
 Until Tr_num<4;
 Trump:=p;
 While Ord(Trump)<>Tr_num do Trump:=SUCC(Trump);
 Repeat
  Write('Enter the 1-st card suit number (p - 0, t - 1, b - 2, h - 3) ');
  ReadLn(Card1_M);
 Until Card1_M<4;
 Card1.M:=p;
 While Ord(Card1.M)<>Card1_M do Card1.M:=SUCC(Card1.M);
 Repeat
  WriteLn('Enter the 1-st card value number (v6 - 0, v7 - 1, v8 - 2,');
  Write('v9 - 3, v10 - 4, vV - 5, vD - 6, vK - 7, vT - 8) ');
  ReadLn(Card1_V);
 Until Card1_V<9;
 Card1.V:=v6;
 While Ord(Card1.V)<>Card1_V do Card1.V:=SUCC(Card1.V);
 Repeat
  Write('Enter the 2-nd card suit number (p - 0, t - 1, b - 2, h - 3) ');
  ReadLn(Card2_M);
 Until Card2_M<4;
 Card2.M:=p;
 While Ord(Card2.M)<>Card2_M do Card2.M:=SUCC(Card2.M);
 Repeat
  WriteLn('Enter the 2-nd card value number (v6 - 0, v7 - 1, v8 - 2,');
  Write('v9 - 3, v10 - 4, vV - 5, vD - 6, vK - 7, vT - 8) ');
  ReadLn(Card2_V);
 Until Card2_V<9;
 Card2.V:=v6;
 While Ord(Card2.V)<>Card2_V do Card2.V:=SUCC(Card2.V);
 WriteLn(Hit(Card1,Card2,Trump));
 ReadLn;
END.