soal bu marliza no.5

¦uses crt, dos; ?
¦procedure CetakHariTanggal; ¦
¦Const ¦
¦ HARI : array[0..6]of string [9]= ¦
¦ ('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu'); ¦
¦Var ¦
¦ tahun,bulan,harike, nohari:word; ¦
¦ ¦
¦ begin ¦
¦ GetDate (tahun,bulan,harike,nohari); ¦
¦ writeln('Hari :',Hari [nohari]); ¦
¦ writeln('Tanggal :',harike :0,'-',bulan :0,'-',tahun:0); ¦
¦ end; ¦
¦ ¦
¦begin ¦
¦ clrscr; ¦
¦ CetakHariTanggal; ¦
¦ Readln; ¦
¦end. ¦