uses crt;
var thang,nam,ngay,i:longint;
begin
 clrscr;
  write('nhap nam:');readln(nam);
  write('nhap thang:');readln(thang);
  while i<=nam do
        begin
         if(i>=8)then
          if(i mod 2=0)then ngay:=31 else ngay:=30
         else if(i mod 2=0)then ngay:=30 else ngay:=31;
         inc(i);
        end;
  if(thang<>2)then write(ngay) else
  if(nam mod 4=0)then write('29')else write('28');
 readln;
end.

có j sai thì bạn nói nha!!!!!!!!!!

uses crt;
 var nam, thang,songay : longint ;
  begin
   clrscr;
readln(thang);
readln(nam);
 case thang of 
   1,3,5,7,8,10,12 : songay := 31 ;
   4,6,9,11 : songay := 30 ;
   2 : 
     if (nam mod 400=0) or ((nam mod 100<>0) and (nam mod 4=0))    
            then songay := 29 else songay := 28 ;
   end ;
   writeln(songay);
    end .