katy1231231233

23.04.2023 02:49

Информатика

Есть ответ 👍

Где ошибка? (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.