По введенному номеру от 1 до 7 выводит ** экран день недели

Question

По введенному номеру от 1 до 7 выводит на экран день недели

Answer 1

Var  day:integer; begin  writeln('Введите номер дня недели(1-7):');  readln(day);    case day of    1:writeln('Понедельник');    2:writeln('Вторник');    3:writeln('Среда');    4:writeln('Четверг');    5:writeln('Пятница');    6:writeln('Суббота');    7:writeln('Воскресенье');    else      writeln('Неверно введён день недели!');  end;end.

Comments

var
day:integer;

begin
writeln('Введите номер дня недели(1-7):');
readln(day);

case day of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
else
writeln('Неверно введён день недели!');
end;
end.