suster keramas...hehehehehehe ^^

program sederhana turbo pascal...^^

program semesteran;

uses wincrt;

var

nama,komentar:string;

tanggal,tahun,bulan,umur_anda_sekarang,bulanumur,tanggalumur:integer;

begin

writeln('silahkan masukkan data diri anda');

writeln('nama anda :');read(nama);

writeln('tanggallahir anda :');read(tanggal);

writeln('bulan boss dalam angka');read(bulan);

writeln('tahun berape lu lahir:');read(tahun);

begin

if ((tanggal>21) and( bulan=12))or((tanggal<20)and( bulan=1))

then komentar:='bintang anda capricorn'

else if((tanggal>21) and( bulan=1))or((tanggal<18)and( bulan=2))

then writeln('bintang anda aqurius')

else if((tanggal>19) and( bulan=2))or((tanggal<20)and( bulan=3))

then writeln('bintang anda pisces')

else if((tanggal>21) and(bulan=3))or((tanggal<19)and( bulan=4))

then writeln('bintang anda aries')

else if((tanggal>20) and( bulan=4))or((tanggal<20)and( bulan=5))

then writeln('bintang anda taurus')

else if((tanggal>21) and( bulan=5))or((tanggal<20)and( bulan=6))

then writeln('bintang anda gemini')

else if((tanggal>21) and( bulan=6))or((tanggal<18)and( bulan=7))

then writeln('bintang anda cancer')

else if((tanggal>21) and( bulan=7))or((tanggal<20)and( bulan=8))

then writeln('bintang anda leo')

else if((tanggal>21) and(bulan=8))or((tanggal<22)and( bulan=9) )

then writeln('bintang anda virgo')

else if((tanggal>23) and( bulan=9))or((tanggal<21)and( bulan=10))

then komentar:='bintang anda libra'

else if((tanggal>22) and( bulan=10))or((tanggal<20)and( bulan=11))

then komentar:='bintang anda sagitarius';

end;

writeln ('hasil penelitian kami maka :');

writeln (komentar);

umur_anda_sekarang :=2006-tahun;

writeln('umur_anda_sekarang :',umur_anda_sekarang);

begin

if tahun mod 12 =0 then writeln('shio anda adalah kauw (monyet) ')

else if tahun mod 12 =1 then writeln('shio anda adalah kee (ayam jago) ')

else if tahun mod 12 =2 then writeln('shio anda adalah kao (anjing)')

else if tahun mod 12 =3 then writeln('shio anda adalah ti (babi)')

else if tahun mod 12 =4 then writeln('shio anda adalah ci (tikus)')

else if tahun mod 12 =5 then writeln('shio anda adalah cu (kerbau)')

else if tahun mod 12 =6 then writeln('shio anda adalah houw (macan)')

else if tahun mod 12 =7 then writeln('shio anda adalah tou (kelinci)')

else if tahun mod 12 =8 then writeln('shio anda adalah liong (naga)')

else if tahun mod 12 =9 then writeln('shio anda adalah yo (kambing)')

else if tahun mod 12 =10 then writeln('shio anda adalah beh (kuda)')

else if tahun mod 12 =11 then writeln('shio anda adalah coa (ular)');

end;

end.

KATA KUNCI MINNGU INI

1. facebook, informasi yang paling dicari dalam keyword facebook adalah tentang facebook login, cara membuat facebook, bagaimana hack facebook, twitter facebook, ninja saga facebook.
2. download, yang paling favorite yaitu mp3 download, download lagu, download video, download game, download software, gurita cikeas download, download smadav 2010, download kalender 2010, download tweetdeck, skype download.
3. lagu, informasi yang paling ingin di ketahui yaitu mengenai lirik lagu, download lagu, lagu terbaru, lagu mp3, lagu Indonesia, gudang lagu, kotak pelan pelan saja, ungu cinta gila, lagu terbaru 2010, lirik lagu kotak, lagu kotak, download lagu kotak, lagu bbf, lagu rindu.
4. yahoo, yang paling diminati untuk kata kunci ini yaitu mengenai mail yahoo, yahoo Indonesia, yahoo messenger, download yahoo, yahoo messenger download, yahoo messenger web, yahoo Indonesia daftar.
5. mp3, informasi yang paling digemari adalah download mp3, free mp3, lagu mp3, mp3 indonesia, download lagu mp3, kotak pelan pelan saja, mp3 terbaru 2010, selir hati mp3, download mp3 kotak, kerispatih mp3, index mp3.
6. google, pencarian terpopuler mengenai translate google, download google, google map, earth google, chrome goolge, google nexus, google china, google phone, google talk, google linux, google online.
7. game, kata kunci yang sering dicari adalah online game, download game, free game, download game pc, game naruto, ninja saga, game school, game dora, chess game, game online terbaru, game cooking.
8. fb, biar lebih efisien untuk kata kunci ini muatan informasinya sama dengan facebook.
9. youtube, hal yang paling ingin diketahui mengenai youtube download, youtube video, youtube Indonesia, download video youtube, youtube suster keramas, rin sakuragi, youtube avatar.
10. games, yang paling banyak dilakukan dengan keyword ini kita asumsikan sama dengan keyword game jadi karena hanya besar