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