uses CRT;
const
days_names:array[0..6] of string = (
'Пн','Вт','Ср','Чт','Пт','Сб','Вс'
);
month_names:array[1..12] of string = (
'Январь', 'Февраль', 'Март', 'Апрель',
'Май', 'Июнь', 'Июль', 'Август',
'Сентябрь', 'Октябрь', 'Ноябрь','Декбрь'
);
month_size:array[1..12] of integer = (
31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
);
var did, mid, i, days : integer;
begin
ClrScr;
ReadLn(did, mid);
days:=0;
for i:= 1 to mid-1 do days := days + month_size[i];
days:= days + did - 5; { т.к. 2009 }
did := days mod 7;
WriteLn('В 2009 году это - '+days_names[did]+' '+month_names[mid]);
ReadLn;
end.