Program baitap;

Uses crt;

Var thu, ngay, thang, nam: integer;

Begin

Clrscr;

Write('Ngay:'); Readln(ngay);

Write('Thang:'); Readln(thang);

Write('Nam:'); Readln(nam);

nam:= 1900 + (nam mod 1900);

If thang < 3 then

     Begin

     nam:= nam - 1;

     thang:= thang + 12;

     End;

thu:= Abs (ngay + thang * 2 + (thang + 1) * 3 div 5 + nam + nam div 4) mod 7;

If thu=0 then writeln('La chu nhat');

If thu=1 then writeln('La thu hai');

If thu=2 then writeln('La thu ba');

If thu=3 then writeln('La thu tu');

If thu=4 then writeln('La thu nam');

If thu=5 then writeln('La thu sau');

If thu=6 then writeln('La thu bay');

Readln

End.

hôm nay là thứ Năm, ngày 13 tháng 1 năm 2022.