Const
d: array [1..7] of string =
('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
n: integer;
begin
write('Номер дня недели? ');
readln(n);
if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода'); </span>
end.