Program jour_semaine;
Var day, month, year, dayyear, daymonth, weekday, cm:integer;
jj:string;
Begin
Writeln ('Donner le jour');
Readln (day);
Writeln ('Donner le mois');
Readln (month);
Writeln ('Donner l''année');
Readln (year);
dayyear:=(year-1)*365 + ((year-1) div 4);
daymonth:=0;
For cm:=1 To (month-1) Do Case cm Of
1, 3, 5, 7, 8, 10, 12 : daymonth:=daymonth+31;
4, 6, 9, 11 : daymonth:=daymonth+30;
2 : If (year mod 4=0) and ((year mod 100<>0) or (year mod 400 =0)) Then daymonth:=daymonth+29
Else daymonth:=daymonth+28;
End;
weekday:=(dayyear+daymonth+day) mod 7;
Case weekday Of
0:jj:='Dimanche';
1:jj:='Lundi';
2:jj:='Mardi';
3:jj:='Mercredi';
4:jj:='Jeudi';
5:jj:='Vendredi';
6:jj:='Samedi';
End;
writeln ('Le jour correspondant est ', jj);
End.