contoh aplikasi sederhana

uses wincrt;
var

bulan,tgl,tahun :integer;

kembali:char;
label awal;


begin
awal:

writeln('             BintangKu');
writeln('**********************************');
write('Tanggal : ');read(tgl);write('bulan   : ');read(bulan);write('tahun   : ');read(tahun);
writeln('==================================');


if bulan=1 then
   begin                
   writeln('bintangKu capicorn');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=2 then
   begin
   writeln('bintangKu Aquarius');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=3 then
   begin
   writeln('bintang anda Gemini');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
         
if bulan=4 then
   begin
   writeln('bintang anda aries');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=5 then
   begin
   writeln('bintang anda *******5******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
        
if bulan=6 then
   begin
   writeln('bintang anda *******6******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
  

if bulan=7 then
   begin
   writeln('bintang anda *******7******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

if bulan=8 then
   begin
   writeln('bintang anda leo');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

if bulan=9 then
   begin
   writeln('bintang anda *******9******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;


if bulan=10 then
   begin
   writeln('bintang anda *******10******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;


if bulan=11 then
   begin
   writeln('bintang anda *******11******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

 if bulan=12 then
   begin
   writeln('bintang anda *******12******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
writeln('==================================');
writeln('anda ingin lagi (y/t)');kembali:=readkey;
if kembali='y' then goto awal ;          


end.