var b,ha,ger:integer;
    bul:string;
procedure maks(s:integer);
          var y,k:integer;
          begin
               case s of
                    1,3,5,7,8,10,12:ha:=31;
                    4,6,9,11:ha:=30;
                    2:begin
                           write('masukan tahun');readln(y);
                           k:=y mod 4;
                           if k=0 then
                           ha:=28
                           else ha:=29;
                           end;
                    else writeln('Bulan salah!!!');readln;exit;
                    end;
                    end;
                    procedure hitung(bee:integer);
                    begin
                    ger:=bee-(2*b);
                    end;
                    begin
                    write('masukan bulan ke-:');readln(b);
                    maks(b);
                    hitung(ha);
                    write('gerhana bulan');
                    case b of
                    1 : WRITE('januari');
                    2:WRITE('februari');
                    3:WRITE('maret');
                    4:WRITE('April');
                    5:WRITE('Mei');
                    6:WRITE('juni');
                    7:WRITE('juli');
                    8:WRITE('Agustus');
                    9:WRITE('September');
                    10:WRITE('Oktober');
                    11:WRITE('November');
                    12:WRITE('Desember');
                    end;
                    writeln('terjadi pada hari ke-',ger);
                    readln;
                    end.