понедельник. Определите какой день был в N дату (N<=31)
var a:array[0..6] of string =('voskresenije', 'ponedelnik', 'vtornik', 'sreda', 'chetverg',
4 двоичных переменных, значит 2⁴=16 строк -полное множество возможных значений