Задача 9.1. За номером дня тижня визначити назву попереднього i наступного дня.

Program Days;
Type Week=(Monday,Tuesday,Wednesday,Thursday,Friday,
            Saturday,Sunday);
Var NextDay,FirstDay,Today: Week;
    number:integer;
Begin
  {Введення номера дня}
 Write('Ведiть номер дня'); ReadLn(number);
 Case number of
     1: Today:=Monday;
     2: Today:=Tuesday;
     3: Today:=Wednesday;
     4: Today:=Thursday;
     5: Today:=Friday;
     6: Today:=Sunday;
 end;
 {Визначення попереднього та наступного днів}
 if Ord(Today)>0 then FirstDay:=Pred(Today)
 else FirstDay:=Sunday;
 if Ord(Today)<6 then NextDay:=Succ(Today)
 else NextDay:=Monday;
 {Виведення результату на екран}
 Write('Попереднiй день ');
 Case FirstDay of
     Monday: Writeln('Monday');
     Tuesday: Writeln('Tuesday');
     Wednesday: Writeln ('Wednesday');
     Thursday: Writeln ('Thursday');
     Friday: Writeln ('Friday');
     Saturday: Writeln ('Saturday');
     Sunday: Writeln ('Sunday')
 End;
 Write ('Наступний день--');
 Case NextDay of
     Monday: Writeln('Monday');
     Tuesday: Writeln('Tuesday');
     Wednesday: Writeln('Wednesday');
     Thursday: Writeln('Thursday');
     Friday: Writeln('Friday');
     Saturday: Writeln('Saturday');
     Sunday: Writeln('Sunday');
  end;  End.

Результати роботи програми:
Ведiть номер дня 3
Попереднiй день Tuesday
Наступний день Thursday