Автор - martyanovaarin2006
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.