Part 4 : Program Jumlah_Hari;

uses wincrt;
Var
tahun, bulan:integer;
Begin
Write (' Masukkan Tahun='); readln(Tahun);
Write (' Masukkan Bulan='); readln(Bulan);
Clrscr;

If (Bulan=1) Or (Bulan=3) Or (Bulan=5) Or (Bulan=7) Or (Bulan=8) Or (Bulan=10) Or
(Bulan=12) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 31 hari')
Else
If (Bulan=4) Or (Bulan=6) Or (Bulan=9) Or (Bulan=11) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 30 hari')
Else
If (Bulan=2) And (Tahun Mod 4= 0) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 29 hari')
Else
If (Bulan=2) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 28 hari');
End.

Hasil :