Решение задачи Case 15

#include <bits/stdc++.h>
using namespace std;
int main(void)
{
   int n,m;
   printf("Достоинство:") ;
   scanf ("%i", &n);
   printf("Масть:") ;
   scanf ("%i", &m);
 
   switch (n) {
   case 6:
        printf("шестёрка ");
        break;
   case 7:
        printf("семёрка ");
        break;
   case 8:
        printf("восьмёрка ");
        break;
   case 9:
        printf("девятка ");
        break;
   case 10:
        printf("десятка ");
        break;
   case 11:
        printf("валет ");
        break;
   case 12:
        printf("дама ");
        break;
   case 13:
        printf("король ");
        break;
   case 14:
        printf("туз ");
        break;
   }
 
   switch (m) {
   case 1:
        printf("пик\n");
        break;
   case 2:
        printf("треф\n");
        break;
   case 3:
        printf("бубен\n");
        break;
   case 4:
        printf("червей\n");
        break;
   }
 
 
   return 0;
}

import random

_suit = {
    1 : 'пики',
    2 : 'треф',
    3 : 'бубен',
    4 : 'червей'
}

_value  = {
    6 : 'шестерка',
    7 : 'семерка',
    8 : 'восьмерка',
    9 : 'девятка',
    10 : 'десятка',
    11 : 'валет',
    12 : 'дама',
    13 : 'король',
    14 : 'туз'
}

try:
    N = random.randrange(6,15)
    print("Достоинство карты: ", N, "-", _value[N])
    M = random.randrange(1,5)
    print("Масть карты: ", M, "-", _suit[M])
    print("Карта: ", _value[N], _suit[M])

except KeyError as e:
    print('Ошибка')
									

program Case15;
var
  N,M:Integer;
begin
  Write('Введите достоинство карты: ');
  Readln(N);
  Write('Введите масть карты: ');
  Readln(M);
  case N of
   6:write('шестёрка ');
   7:write('семёрка ');
   8:write('восьмёрка ');
   9:write('девятка ');
   10:write('десятка ');
   11:write('валет ');
   12:write('дама ');
   13:write('король ');
   14:write('туз ');
  end;
 
  case M of
    1:write('пик');
    2:write('треф');
    3:write('бубен');
    4:write('червей');
  end;
end.