Составить программу нахождения дня недели по известной цифре.

program den_nedeli; var a: integer; begin writeln ('Введите цифру дня недели'); readln (a); case a of 1: writeln ('Понедельник'); 2: writeln ('Вторник'); 3: writeln ('Среда'); 4: writeln ('Четверг'); 5: writeln ('Пятница'); 6: writeln ('Суббота'); 7: writeln ('Воскресенье'); end; end.