Игральным картам условно присвоены следующие порядковые номера в зависимости от их достоинства: «валету» — 11, «даме» — 12, «королю» — 13, «тузу» — 14. Порядковые номера остальных карт соответствуют их названиям («шестерка», «девятка» и т. п.). По заданному номеру карты k (6 ≤ k ≤ 14) определить достоинство соответствующей карты
Program karta;
var k: integer;
var n: string;
Begin
n:='Эта карта ';
writeln('Введите номер карты');
readln(k);
if(k<6) or (k>14) then begin
while (k<6) or (k>14) do begin
writeln('Введите номер карты от 6 до 14');
readln(k);
end;
end;
case k of
6:writeln(n,'Шестёрка');
7:writeln(n,'Семёрка');
8:writeln(n,'Восьмёрка');
9:writeln(n,'Девятка');
10:writeln(n,'Десятка');
11:writeln(n,'Валет');
12:writeln(n,'Дама');
13:writeln(n,'Король');
14:writeln(n,'Туз');
end
end.