var a, b, bb, c, d, v, vv :integer;
begin
write ('Введите число месяц год '); readln (a,b,c);
if (c-1900) mod 4=0 then v:=1 else v:=0; //високосность
// количество дней от начала года до 1-го дня месяца
if b=1 then bb:=0;
if b=2 then bb:=31;
if (b>=3) and (b<=8) or (b=10)or (b=12) then bb:=31*(b-1)-(b-1) div 2 -2 +v;
if (b=9) or (b=11) then bb:=31*(b-1) - (b-1) div 2 -1+ v;
if b>12 then write('b= False !');
vv:=(c-2012) div 4 -1;
d:=(bb+a+c-2012+vv) mod 7; if d<0 then d:=7+d;
// день недели
if d=0
then writeln ('воскресение');
if d=1
then writeln
('понедельник'); if d=2
then writeln ('вторник');
if d=3
then writeln
('среда');
if d=4 then writeln ('четверг');
if d=5
then writeln
('пятница');
if d=6 then writeln ('суббота');
end.