program a;
uses crt;
var y,i:longint;a:array[1..12]of longint;
begin
 clrscr;
  write('y=');readln(y);
  if(y mod 4=0)then a[2]:=29 else a[2]:=28;
  write(a[2]);
 readln;
end.

----------------------------------------

program b;
uses crt;
var y,i,m:longint;a:array[1..12]of longint;
begin
 clrscr;
  i:=1;
  while i<=7do
        begin
         a[i]:=31;
         inc(i,2);
        end;
  i:=8;
  while i<=12do
        begin
         a[i]:=31;
         inc(i,2);
        end;
  i:=4;
  while i<=6do
        begin
         a[i]:=30;
         inc(i,2);
        end;
  i:=9;
  while i<=11do
        begin
         a[i]:=30;
         inc(i,2);
        end;
  write('m=');readln(m);
  write('y=');readln(y);
  if(y mod 4=0)then a[2]:=29 else a[2]:=28;
  write(a[m]);
 readln;
end.

----------------------------------------------------

program c;
uses crt;
var y,i,m,d,ngay,thang,nam,dk1,dk2,dk3,dk4:longint;a:array[1..12]of longint;
begin
 clrscr;
  i:=1;
  while i<=7do
        begin
         a[i]:=31;
         inc(i,2);
        end;
  i:=8;
  while i<=12do
        begin
         a[i]:=31;
         inc(i,2);
        end;
  i:=4;
  while i<=6do
        begin
         a[i]:=30;
         inc(i,2);
        end;
  i:=9;
  while i<=11do
        begin
         a[i]:=30;
         inc(i,2);
        end;
  dk1:=0;
  dk2:=0;
  dk3:=0;
  write('d=');readln(d);
  write('m=');readln(m);
  write('y=');readln(y);
  nam:=y;
  if(y mod 4=0)then a[2]:=29 else a[2]:=28;
  for i:=1 to 10 do if(a[i]=31)and(d=31)then
        begin
         ngay:=1;
         thang:=m+1;
        end else dk1:=1;
  for i:=4 to 11 do if(a[i]=30)and(d=30)then
        begin
         ngay:=1;
         thang:=m+1;
        end else dk2:=1;
  if(d=a[2])and(m=2)then
        begin
         ngay:=1;
         thang:=m+1;
        end else dk3:=1;
  if(d=31)and(m=12)then
        begin
         ngay:=1;
         thang:=1;
         nam:=y+1;
        end else dk4:=1;
  if(dk1=1)and(dk2=1)and(dk3=1)and(dk4=1)then
        begin
         ngay:=d+1;
         thang:=m;
        end;
  write(ngay,'/');
  write(thang,'/');
  write(nam);
 readln;
end.

chúc bạn học tốt