Program Thu_trong_tuan;
Uses Crt;
Var
   thu,ngay,thang:byte;
   Nam,luu:Integer;
Begin
   Clrscr;
   Write('-Ngay: ');
   Readln(ngay);
   Write('-Thang: ');
   Readln(thang);
   Write('-Nam: ');
   Readln(nam);
   luu:=nam;
   nam:=1900 + (nam Mod 1900);
   If thang < 3 Then
       Begin
         thang:=thang + 12;
         nam:=nam - 1;
      End;
   thu:=ABS(ngay+2*thang+3*(thang+1) Div 5+nam+nam Div 4) Mod 7;
   Case thu Of
       0:Begin
       Writeln('+La ngay Chu Nhat');
       End;
      1:Begin
      Writeln('+La ngay Thu Hai');
      End;
      2:Begin
      Writeln('+La ngay Thu Ba');
      End;
      3:Begin
      Writeln('+La ngay Thu Tu');
      End;
      4:Begin
      Writeln('+La ngay Thu Nam');
      End;
      5:Begin
      Writeln('+La ngay Thu Sau');
      End;
      6:Begin
      Writeln('+La ngay Thu Bay');
      End;
   End;
   Readln;
End.

var d,m,y,n:integer;

Function Songay(thang,nam: Integer):Integer;

Var sn:Integer;

Begin

Case thang of 1,3,5,7,8,10,12 :

sn:= 31; 4,9,11 :

sn:= 30; 2: I

f (nam MOD 4 = 0) Then sn:= 29 Else sn:= 28;

End;

Songay:= sn;

End;

BEGIN

Writeln('Nhap ngay thang nam');

Readln(d,m,y);

Writeln('Nhap N');

Readln(N); d:=d+N;

While d > Songay(m,y) Do

Begin

d:= d - Songay(m,y);

m:= m+1;

IF m > 12 Then

Begin

m:= 1;

y:= y + 1;

End;

End;

Writeln('Ket qua ',d,'/',m,'/',y);

Readln;

END.