Помогите пожалуйста написать программу delphi

Question

дано целое число k (1<=k<=365) присвоить целочисленной величине n значение 1,2,...6 или 0 в зависимости от того, на какой день недели (понедельник, вторник,.., суббота или воскресенье) приходиться k-й день года, в котором 1 января: 
а) понедельник 
б) вторник 
в) d-й день недели (если 1 января -понедельник, то d=1,если вторник d=2,...если воскресенье d=7 )

Олеся Пономарева · Accepted Answer

Прибавляете, берете остаток от деления на 7 и все.