tool : pascal for win
program tanggal ;
uses wincrt;
var
nama,tgllhr : string;
jkl : char;
bintang, karir, asmara, keuangan, luckyday : string ;
j : char;
function caritgl(a:string):string;
var
tg, bl, th : string;
begin
tg:=copy(a,1,2);
bl:=copy(a,4,2);
...
