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

Program den_nedeli;

var a: integer;

begin

writeln ('Введите цифру дня недели') ;

readln (a) ;

case a of

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

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

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

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

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

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

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

end;

end.