Написать программу выбора дня недели, не используя оператора выбора 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.