// Вариант 1
program Pussy;

uses crt;

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

var num: byte;

begin clrscr;
  Write('Введите число от 1 до 7: '); ReadLn(num);
  if num in [1..7] then WriteLn(arr[num]) else WriteLn('Упс..ошибочка :(');
  ReadLn;
end.

// Вариант 2
program Pussy;

uses crt;

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

var num: byte;

begin clrscr;
  Write('Введите число от 1 до 7: '); ReadLn(num);
  case num of
    1..7: WriteLn(arr[num])
  else WriteLn('Упс..ошибочка :(');
  end;
  ReadLn;
end.

// Вариант 3
program Pussy;

uses crt;

var num: byte;

begin clrscr;
  Write('Введите число от 1 до 7: '); ReadLn(num);
  case num of
    1: WriteLn('Понедельник');
    2: WriteLn('Вторник');
    3: WriteLn('Среда');
    4: WriteLn('Четверг');
    5: WriteLn('Пятница');
    6: WriteLn('Суббота');
    7: WriteLn('Воскресенье');
  else WriteLn('Упс..ошибочка :(');
  end;
  ReadLn;
end.