TPW Program Zodiak

program zodiak;
uses wincrt;
var
nama:string;
t,bl,tl,z,j : integer;
ulang : char;
begin
repeat
clrscr;
write ('Tulis nama anda : '); readln(nama );
write ('Tuliskan tanggal lahir anda   (dalam bentuk Angka) : '); readln(tl);
write ('Tuliskan Bulan Lahir anda  (dalam bentuk Angka) : ');readln(bl);
writeln ('-------------------------------------------');


case bl of
01 : begin t := 31; j := 0 end;
02 : begin t := 29; j := 1 end;
03 : begin t := 31; j := 0 end;
04 : begin t := 30; j := 0 end;
05 : begin t := 31; j := -2 end;
06 : begin t := 30; j := -1 end;
07 : begin t := 31; j := -2 end;
08 : begin t := 31; j := -2 end;
09 : begin t := 30; j := -3 end;
10 : begin t := 31; j := -2 end;
11 : begin t := 30; j := -1 end;
12 : begin t := 31; j := -2 end;
else writeln (' Maaf, Bulan yang anda Maksud Tidak Tersedia');
end;
begin
if ( tl <= t) = true then
begin
write ('Halo ',nama,', Anda lahir pada tanggal ',tl,'-',bl,'. Zodiak anda adalah ');
z := ((bl * 31) + ((tl + j) - 21)) div 31 ;
case z of
1 : writeln ('Aquarius');
2 : writeln ('Pisces');
3 : writeln ('Aries');
4 : writeln ('Taurus');
5 : writeln ('Gemini ');
6 : writeln ('Cancer');
7 : writeln ('Leo');
8 : writeln ('Virgo');
9 : writeln ('Libra');
10 : writeln ('Scorpio');
11 : writeln ('Sagitarius');
else writeln ('Capricon');
end;
end
else writeln ('Maaf, tanggal yang anda masukan tidak tersedia.');
end;
writeln('------------------------------------------------');
write ('Terima kasih atas kunjungan anda. Silakan enter 2 kali untuk kembali ke awal.');
readln(ulang);
until (ulang = 't' ) or (ulang = 'T');
end.