program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var num : array [1..12] of integer;
var y, m : integer;
begin
    num[1] := 31; num[2] := 28; num[3] := 31; num[4] := 30;
    num[5] := 31; num[6] := 30; num[7] := 31; num[8] := 31;
    num[9] := 30; num[10] := 31; num[11] := 30; num[12] := 31;
    write('Please Enter y(year): ');
    readln(y);
    write('Please Enter m(month): ');
    readln(m);
    if (m=2) and (((y mod 400)=0) or (((y mod 100)<>0) and ((y mod 4)=0))) then begin
          writeln('number of days(', y, '/', m, ') is 29');
    end
    else begin
          writeln('number of days(', y, '/', m, ') is ', num[m] );
    end;
    readln
end.