Question

Где ошибка? (PascalABC)

Во время компиляции сообщает о том, что введены лишние результирующие данные и читает только 1ую часть (номера), а масти не читает.

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

begin

Task('Case15');
var (n, m) := readInteger2;
case n of
6: print ('шестерка');
7: print ('семерка');
8: print ('восьмерка');
9: print ('девятка');
10: print ('десятка');
11: print ('валет');
12: print ('дама');
13: print ('король');
14: print ('туз')

end;
case m of
1: print ('пик');
2: print ('треф');
3: print ('бубен');
4: print ('червей');
end;
end.

Answer 1

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.