Написать программу выбора дня недели, не используя оператора выбора case a of. Каждый день пронумерован от 1 до 7.

Var x:integer;

beginread (x);

if x = 1 then

writeln ('Понедельник');

if x = 2 thenw

riteln ('Вторник');

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 ('Воскресенье');

end.