Jumlah Hari Dalam Bulan

program jumlah_hari_dalam_bulan;
uses wincrt;
var
th,bln,hr,a:integer;
Begin
writeIn;

gotoxy(24,8);writeln('MENENTUKAN JUMLAH HARI DALAM BULAN');
writeln;
write('Masukkan tahun: ');readln(th);
write('Masukkan bulan: ');readln(bln);
clrscr;
case bln of
1:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Januari: 31 hari')
end;
2:begin
clrscr;
a:=th mod 4;
if (a>0) or (a<=1) then hr:=28;
if a=0 then hr:=29;
writeln('Tahun : ',th);
writeln('Jumlah hari pada bulan Februari: ',hr,' hari');
end;
3:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Maret: 31 hari');
end;
4:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan April: 30 hari');
end;
5:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Mei: 31 hari');
end;
6:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Juni: 30 hari');
end;
7:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Juli: 31 hari');
end;
8:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Agustus: 31 hari');
end;
9:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan September: 30 hari');
end;
10:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Oktober: 31 hari');
end;
11:begin
clrscr;
writeln('Tahun: ',th);
writeln('Jumlah hari pada bulan Nopember: 30 hari');
end;
12:begin
clrscr;
writeln('Tahun:',th);
writeln('Jumlah hari pada bulan Desember: 31 hari');
end;
13:end

End.