Составте программу на языке паскаля по который будет реализован следующий…

var day: integer; beginwriteln ("Введите день недели."); readln (day); case day of 1: beginwriteln ("Это понедельник! "); end; 2: beginwriteln ("Это вторник! "); end; 3: beginwriteln ("Это среда! "); end; 4: beginwriteln ("Это четверг! "); end; 5: beginwriteln ("Это пятница! "); end; 6: beginwriteln ("Это суббота! "); end; 7: beginwriteln ("Это воскресенье! "); end; end; readln; end.