SCJ1 No 3

program jumlahhari;
uses crt;
var bulan,tahun:integer;
begin
        clrscr;
        writeln('Bulan: ');
        read(bulan);
        writeln('Tahun: ');
        read(tahun);
        case bulan of
        1,3,5,7,8,10,12: writeln('Bulan ',bulan,' tahun ',tahun,' ada 31 hari');
        4,6,9,11: writeln('Bulan ',bulan,' tahun ',tahun,' ada 30 hari');
        2:
        if (tahun mod 400 = 0) then
        begin
                writeln('Bulan ',bulan,' tahun ',tahun,' ada 29 hari');
        end
        else
        begin
                if (tahun mod 100 = 0) then
                begin
                        writeln('Bulan ',bulan,' tahun ',tahun,' ada 28 hari');
                end
                else
                begin
                        if (tahun mod 4 = 0) then
                        begin
                                writeln('Bulan ',bulan,' tahun ',tahun,' ada 29 hari');
                        end
                        else
                        begin
                                writeln('Bulan ',bulan,' tahun ',tahun,' ada 28 hari');
                        end;
                end;
        end;
        else writeln('Salah bulan');
        end;
        readkey;
end.