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

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