Program Hari Lahir

Program HariLahir;

uses crt;

const

     mm : array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);

     lhr : array[1..7] of string =('SENIN','SELASA','RABU','KAMIS','JUMAT','SABTU','MINGGU');

var

   i,n : integer;

   dd,yy : integer;

   hari,jumlah,k,S:integer;

begin

clrscr;

writeln('Masukkan Tanggal Lahir Anda ^_^');

writeln('===============================');

write('tanggal : '); readln(dd);

write('bulan   : '); readln(n);

write('tahun   : '); readln(yy);

if yy mod 4 = 0 then

mm[2]:=29

else

mm[2]:=28;

hari:=0;

for i:=1 to (n-1) do

    begin

    hari:=hari+mm[i];

    end;

jumlah:=hari+dd; {jumlah hari dari awal tahun}

k:=(yy-1) div 4; {sisa pembagian diabaikan}

S:=(yy+jumlah+k);

clrscr;

write('Hari Lahir Anda adalah ');

case S mod 7 of

0 : write(lhr[5]);

1 : write(lhr[6]);

2 : write(lhr[7]);

3 : write(lhr[1]);

4 : write(lhr[2]);

5 : write(lhr[3]);

6 : write(lhr[4]);

end;

end.