Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 41 стр.

    Succ (m29);
    Pred (saturday);
    Pred (m28);
    Ord (tuesday);
    Ord (tuesday) + Pred (30);
    Succ (kday) + 1 + Ord (pmonth).
    d) Что будет напечатано в результате выполнения сле-
дующих операторов:
    wday : = Succ (friday);
    If wday = sunday Then WriteLn ('yes')
    Else WriteLn ('no');
    WriteLn (ord (monday));
    For wday : = monday To friday Do
    Write (Ord (wday));
    e) Допустимы ли следующие операции ввода-вывода:
    Read (wday);
    Write (monday);
    WriteLn ('sunday');
    WriteLn (ord (wednesday));
    WriteLn (succ (tuesday));
    WriteLn ('pmonth =', ord (m28));
    f) Допустимы ли следующие заголовки цикла:
    For wday           : = monday To saturday Do;
    For wday           : = sunday Downto monday Do;
    For kday           : = m28 To m30 Do;
    For kday           : = 1 To 31 Do;
    5. Пусть дан представленный ниже фрагмент программы.
Присвойте переменной t значение true, если месяц ml пред-
шествует месяцу m2, и значение false в противном случае.
Месяцы ml и m2 принадлежат одному году.
    Type month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep,
Oct, Nov, Dec);
    Var ml, m2 : month;
               t : boolean;
    6. Пусть дан следующий фрагмент программы:
    Type month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep,
Oct, Nov, Dec) ;
    Var ml, m2 : month:
               i: Integer;
                                41