Program Kecocokan Jodoh ver.1

Program Ramalan_Jodoh;

uses wincrt;

label balik;

var

tanggal : integer;
bulan : integer;
tahun : integer;
nama : char;
tanggal1 : integer;
bulan1 : integer;
tahun1 : integer;
nama1 : char;
begin

balik:

writeln('**Ini Adalah Ramalan Jodoh**');
Write('*Silahkan masukkan tanggal lahir anda* :');read(tanggal);
Write('*Silahkan masukkan bulan kelahiran anda[dalam angka]* :');read(bulan);
write('*Silahkan masukkan tahun kelagiran anda* :');read(tahun);
Write('*Silahkan masukkan nama panggilan anda* :');readln(nama);
writeln;
Write('*Silahkan masukkan tanggal lahir pasangan anda* :');read(tanggal1);
Write('*Silahkan masukkan bulan kelahiran pasangan anda[dalam angka]* :');read(bulan1);
write('*Silahkan masukkan tahun kelahiran pasangan anda* :');read(tahun1);
Write('*Silahkan masukkan nama panggilan pasangan anda* :');readln(nama1);
writeln;

if tanggal<tanggal1 then
writeln('**tingkat kecocokan anda** : 79%');

if tanggal>tanggal1 then
writeln('**tingkat kecocokan anda** : 67%');

if tanggal=tanggal1 then
writeln('**tingkat kecocokan anda** : 82%');

if tahun<tahun1 then
writeln('**alur hubungan anda** : lancar tanpa masalah');

if tahun>tahun1 then
writeln('**alur hubungan anda** : agak berliku dan bermasalah');

if tahun=tahun1 then
writeln('**alur hubungan anda** : lancar walau terkadang terhambat masalah');

if bulan<bulan1 then
writeln('**rejeki anda** : Lancar mengalir seperti iler');

if bulan>bulan1 then
writeln('**rejeki anda** : Sedikit seret seperti umbel');

if bulan=bulan1 then
writeln('**rejeki anda** : Lumayanlah, cukup untuk kebutuhan sehari-hari');


end.

Sebelumnya saya peringatkan, program ini tidak ada hubungannya dengan perhitungan kecocokan asli, hanya main2.......tapi nyatanya program ini sudah memakan banyak korban teman2 saya yang tidak berdosa..........

{Download program jadi : http://www.4shared.com/file/cXEPJCDe/ramalanj.html }
{Download program+code pascal : http://www.4shared.com/file/zvySHo-J/ramalanj.html }