Понятным и несущим новую, неизвестную нам ранее информацию
Program pr;
uses crt;
Var x:integer;
Begin
Writeln('введите день недели');
readln(x);
case x of
1:Writeln('5 пар');
2,3:Writeln('4 пары');
4:Writeln('3 пары');
5:Writeln('2 пары');
6,7:Writeln('пар нет');
end;
readln;
end.
==========================================================
Это и к файлу и к папке относится:
1.Копировать
2.Вставить
3.Вырезать
4.Открыть
5.Удалить
6.Переименовать
Прошу написать на русском и тогда я смогу вам помочь