membuat TANGGAL pascal dengan type integer

Nih ada ide lagi buat km yang suka memainkan Cmd 

gambar di bawah ini 

contoh membuat TANGGAL pascal dengan type data integer

silahkan anda coba....