Question

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

Answer 1

const
a:array[1..7] of string=('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
b:integer;
begin
read(b);
writeln(a[b]);
end.