День недели вводится как число (1-понедельник, 2-вторник и т.д.) Вывести на экран словесное описание дня. При реализации программы использовать оператор условия case.
Код:
Код: Выделить всё
Program a;
var x: integer;
begin
write('введите число');
read(x);
case x of
1: write ('понедельник');
2: write ('вторник');
3: write ('среда');
4: write ('четверг');
5: write ('пятница');
6: write ('суббота');
7: write ('воскресенье');
else write('ошибка');
end;
end.