Игральным картам условно присвоены следующие порядковые номера в зависимости от их достоинства: «валету» — 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.