输入年月输出该月天数

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
      label 1;
     var year,month,days:integer;
begin

   1:   writeln('输入 year month');
     read(year,month);

     case month of 1,3,5,7,8,10,12:days:=31;
     4,6,9,11                     : days:=30;
     2                            : if (year mod 4=0)and (year mod 100<>0)
                                    or (year mod 400=0) then days:=29
                                    else days:=28
                                      end;

  writeln('year=',year :10,    '    month=', month :10, '   days=', days:10 );
     goto 1;
  end.

https://files.cnblogs.com/atiger/基础算法(控制台程序).rar