написать программу: по заданному порядковому номеру дня недели напечатать его название и указать рабочий это день или не рабочий

var

a: array [1 ... 7] of System. Tuple;

i: byte;

begin

a[1] : = new System. Tuple (true, 'Понедельник') ;

a[2] : = new System. Tuple (true, 'Вторник') ;

a[3] : = new System. Tuple (true, 'Среда') ;

a[4] : = new System. Tuple (true, 'Четверг') ;

a[5] : = new System. Tuple (true, 'Пятница') ;

a[6] : = new System. Tuple (false, 'Суббота') ;

a[7] : = new System. Tuple (false, 'Воскресение') ;

readln (i) ;

writeln ((i in [1 ... 7]? String. Format ('Day #{0} is {1}. It is {2}.', i, a[i]. Item2,

(a[i]. Item1? 'working day' : 'weekend')) : 'There aren't this day.')) ;

end.

Var month:integer;

begin

readln (month) ;

if ((month >0) and (month < 13)) then

case month of

1 : writeln ('january (31 days) ') ;

2 : writeln ('fabruary (28 days) ') ;

3 : writeln ('march (31 days) ') ;

4 : writeln ('April (31 days) ') ;

5 : writeln ('fabruary (28 days) ') ;

6 : writeln ('march (31 days) ') ;

7 : writeln ('january (31 days) ') ;

8 : writeln ('fabruary (28 days) ') ;

9 : writeln ('march (31 days) ') ;

10 : writeln ('january (31 days) ') ;

11 : writeln ('fabruary (28 days) ') ;

12: writeln ('march (31 days) ') ;

end

else writeln ('error') ;

readln;

end.