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.