uses wincrt;
var
kembali:char;
label awal
pilih:integer;
begin
awal:
write ('Bulan Lahir Anda: ');readln (pilih);
if pilih=1 then
begin
writeln (‘keuangan memburuk')
end;
if pilih=2 then
begin
writeln (‘masa depan suram')
end;
if pilih=3 then
begin
writeln (‘cita-cita akan tercapai')
end;
if pilih=4 then
begin
writeln ('nasib hidup membaik')
end;
if pilih=5 then
begin
writeln (‘mudah dapat pekerjaan ‘)
end;
if pilih=6 then
begin
writeln ('susah dapat jodoh ')
end;
if pilih=7 then
begin
writeln ('sukses dalam karir ')
end;
if pilih=8 then
begin
writeln ('keuangan membaik')
end;
if pilih=9 then
begin
writeln ('keuangan lancar, mudah dapat jodoh, sukses dalam segala hal')
end;
if pilih=10 then
begin
writeln ('nasib anda belum beruntung')
end;
if pilih=11 then
begin
writeln ('hidup anda tidak jelas alias GeJe')
end;
if pilih=12 then
begin
writeln ('penuh kebahagiaan dan sukacita')
end;
writeln ('Lihat Ramalan Bulan Lain: '); kembali:=readkey;
if kembali='y' then goto awal;
end.