Question

По числу текущего месяца
определить день недели.
На Pascal программка нужна)
ПОМОГИТЕ ПОЖАЛУЙСТА))

Answer 1

) Почему именно так: if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6) 
else gotoxy(wherex+1,wherey-6); (не понятно почему именно диапазон месяцев от 1 до 8 включительно?) 

2) Зачем писать так: if d+1=8 then {если день недели воскресенье} , а не вот так if d=7 then ? (если писать что d=7, то числа месяцев отходят от нужной позиции)