Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.

var

a: integer;

begin

writeln ('Введите день недели:') ; readln (a) ;

case a of

1 : writeln ('Понедельник') ;

2 : writeln ('Вторник') ;

3 : writeln ('Среда') ;

4 : writeln ('Четверг') ;

5 : writeln ('Пятница') ;

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

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

else writeln ('В неделе только 7 дней.') ;

end;

end.