Составить программу, которая по порядковому номеру денька недели выводит соответствующую фразу-

program zz1;
var a:integer; // заводим переменную
begin
write(введите номер дня недели ); // вводим с клавиатуры номера денька недели
read(a);
case a of // в зависимости от введенного номера денька недели выбираем выводимый ответ
7:writeln( Воскресенье );
6:writeln( Суббота )
else
writeln( Рабочий денек );

end;

end.