Решение задач по теме "Оператор выбора Case в Pascal"
Решение задачи №1
program one;
var x:integer;
begin
writeln('Введите число в диапазоне 1 - 7');
readln(x);
case x of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
end;
end.