Дано натуральное число n где 0

Var a: array[1..7] of string =(понедельник,
    вторник,среда,четверг,пятница,
    суббота,воскресенье);
    n: integer;
begin
  write(номер дня недели: );
  readln(n);
  if n in [1..7] then writeln(a[n])
  else writeln(не верный номер дня недели);
end.

номер дня недели: 5
пятница

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.