Menghitung waktu gerhana

 Sebenarnya intinya hanya membuat prosedur yang menampilkan jumlah hari dalam bulan tertentu..waktu gerhana ini sebagai tambahan saja.


uses crt;
var b,ha,ger:integer;
bul:string;
procedure maks(s:integer);
var y,k:integer;
begin
case s of
1,3,5,7,8,10,12:ha:=31;
4,6,9,11:ha:=30;
2:begin
write('masukan tahun ');readln(y);
k:=y mod 4;
if k=0 then
ha:=28
else ha:=29;


end;
else writeln('Bulan salah!!!');readln;exit;
end;
end;
procedure hitung(bee:integer);
begin
ger:=bee-(2*b);
end;
begin
write('masukan bulan ke- :');readln(b);
maks(b);
hitung(ha);
write('Gerhana bulan ');
case b of
1 : WRITE('Januari');
2:WRITE('Februari');
3:WRITE('Maret');
4:WRITE('April');
5:WRITE('Mei');
6:WRITE('Juni');
7:write('Juli');
8:WRITE('Agustus');
9:write('September');
10:write('Oktober');
11:WRITE('November');
12:WRITE('desemberrrr');
end;
writeln(' terjadi pada hari ke-',ger);
readln;
end.