begin write('Введите номер дня недели: '); readln(x); if (x = 1)then writeln('Понедельник'); if (x = 2)then writeln('ВТорник'); if (x = 3)then writeln('Среда'); if (x = 4)then writeln('Четверг'); if (x = 5)then writeln('Пятница'); if (x = 6)then writeln('Субота'); if (x = 7)then writeln('Воскресенье');