TYPE tanggal : 
    <
    	dd	: integer,
    	mm	: integer,
    	yy	: integer;
    >

	fungsi create_tanggal(dd,mm,yy : integer):tanggal
	/** fungsi mengeset tanggal tgl dengan hari, bulan, dan tahun dan mengembalikan hasilnya **/

	fungsi cek_tanggal(tgl : tanggal) : boolean
	/**
	* fungsi mengecek tanggal
	* fungsi mengembalikan nilai true jika isi tanggal sesuai dengan bulannya
	* fungsi mengembalikan nilai false jika isi tanggal atau bulan atau tahun salah
	**/
	
	prosedur show_tanggal(tgl : tanggal)
	/**
	* fungsi menampilkan tanggal bulan tahun dengan format menampilkan nama bulan
	* contoh : 1 Januari 1980
	**/

	prosedur edit_tanggal(i/o: tgl : tanggal, i: dd,mm,yy : integer)
	/**
	* fungsi mengubah isi tanggal dari variabel tgl
	**/

	fungsi selisih_hari(tgl1, tgl2 : tanggal) : integer
	/**
	* fungsi menghitung selisih hari dari variable tgl1 dan tgl2
	* fungsi selalu mengembalikan selisih dalam nilai positif
	* syarat tahun tgl1 dan tgl2 harus sama
	* jika tahun pada tgl1 berbeda dengan tgl2, maka fungsi mengembalikan nilai -1
	**/

TYPE orang : 
    <
    	nama : string
		tgl_lahir : tanggal
    >

	fungsi create_orang(nama : string nama, tgl,bln,thn : integer): orang
	/**
	* fungsi mengeset orang org dengan nama, tgl, bln, thn, dan mengembalikan hasilnya
	* fungsi memanggil fungsi create_tanggal untuk membuat tanggal lahir
	**/

	fungsi hitung_umur(org : orang) : integer
	/** fungsi menghitung umur orang org berdasarkan tahun 2016	**/
	
	prosedur show_orang(org : orang)
	/** fungsi menampilkan nama, tanggal lahir dan umur orang org **/