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

Question

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

Answer 1

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