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

Ответ: Огромное , человеческое спасибо!

Ответ: Пожалуйста.

Ответ: var n,m:integer;beginwrite(‘N = ‘); readln(n);write(‘M = ‘); readln(m);case n of6: write(‘шестерка ‘);7: write(‘семерка ‘);8: write(‘восьмерка ‘);9: write(‘девятка ‘);10: write(‘десятка ‘);11: write(‘валет ‘);12: write(‘дама ‘);13: write(‘король ‘);14: write(‘туз ‘);else writeln(‘ошибка ввода ‘); end;case m of1: write(‘пик’);2: write(‘треф’);3: write(‘бубен’);4: write(‘червей’);else writeln(‘ошибка ввода ‘); end;end.Пример:N = 10M = 2десятка треф