В программе описаны типы:
Type Mast = (р, t, b, h); {пики, трефы, бубны, червы} Value = (v6, v7, v8, v9, vlO, vV, vD, vK, vT);
{шесть, семь, восемь, девять, десять, валет, дама,
король, туз}
Card = record {описание карты:}
m: Mast; {масть} v: Value {достоинство} end;
Написать программу, которая вводит две карты С1 и С2 и козырную масть КМ и проверяет, "бьет" ли карта С1 карту С2. Для этого описать логическую функцию Hit (CI, С2: Card; KM: Mast): Boolean