Как создать программу, которая по номеру дня недели выдает на экран его название

var a: integer; begin writeln('введите номер дня недели'); readln(a); if a=1 then writeln('понедельник'); if a=2 then writeln('вторник'); if a=3 then writeln('среда');     if a=4 then writeln('четверг'); if a=5 then writeln('пятница'); if a=6 then writeln('суббота'); if a=7 then writeln('воскресенье'); if (a>7) or (a<1) then writeln('такого дня недели нет'); end.