оператор выбора

[Абай]

Case15. Мастям игральных карт присвоены порядковые номера: 1 — пики
2 — трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки
присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны
два целых числа: N — достоинство (6 · N · 14) и M — масть карты
(1 · M · 4). Вывести название соответствующей карты вида «шестерк
бубен», «дама червей», «туз треф» и т. п.

[ИВэТэшка]

Program test;
var n,m: integer;
begin
write('Enter N and M: ');
readln(n,m);
case n of
      6: Write('Six ');
      7: Write('Seven ');
      end;
case m of
      1: Write('Picche');
      2: Write('Club');
      end;
readln;
end.

С остальными картами по аналогии