Cho 1 tháng=30 ngày chứ ko theo lịch đúng ko bạn?
Program thang;
uses crt;
var a,ng,th:integer;
Begin
clrscr;
write('Nhap so:'); readln(a);
a:=a mod 360;
ng:=a mod 30;
th:=a div 30+1;
if ng=0 then
begin
ng:=30;
dec(th);
end;
write('Ngay ',ng,'/',th);
readln;
End.