Paskal Ramal

Ini lho ramalan sederhana
Download klik disini

uses wincrt;
Var
tanggal:integer;
bulan:integer;
kembali:char;
Label awal;

Begin
awal:
WriteLn('=================================');
writeLn('Ramalan Sederhana ZoDiAk JELEK!!!');
WriteLn('=================================');
Write('Tanggal Lahir saya ');ReadLn(tanggal);
Write('Bulan Lahir saya ');ReadLn(bulan);

if bulan=1
then
begin
writeln('baik dan setia ');
end;
if bulan=2
then
begin
writeln('boros dan percaya diri ');
end;
if bulan=3
then
begin
writeln('suka dipuji ');
end;
if bulan=4
then
begin
writeln('banyak teman dan periang ');
end;
if bulan=5
then
begin
writeln('pintar membagi waktu ');
end;
if bulan=6
then
begin
writeln('santai tetapi cepat dalam berpikir ');
end;
if bulan=7
then
begin
writeln('pandai bergaul dan rajin ');
end;
if bulan=8
then
begin
writeln('suka dipuji ');
end;
if bulan=9
then
begin
writeln('banyak teman dan periang ');
end;
if bulan=10
then
begin
writeln('pintar membagi waktu ');
end;
if bulan=11
then
begin
writeln('santai tetapi cepat dalam berpikir ');
end;
if bulan=12
then
begin
writeln('pandai bergaul dan rajin ');
end;

writeLn('anda ingin lagi :');Kembali:=readkey;if kembali='y' then goto awal;
WriteLn('======================');
end.