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

program zz1;

var a:integer; / / заводим переменную

begin

write ('введите номер дня недели '); / / вводим с клавиатуры номера дня недели

read (a);

case a of / / в зависимости от введенного номера дня недели выбираем выводимый ответ

7:writeln (' Воскресенье ');

6:writeln (' Суббота ')

else

writeln (' Рабочий день ');

end;

end.