Tugas Pascal

Contoh ramalan berdasarkan bulan lahir anda.

Uses wincrt;
var
pilih:integer;
begin
write('bulan lahir anda:');readln(pilih);
if pilih=1
then
begin
writeln('optimis dalam segala hal ');
end;
if pilih=2
then
begin
writeln('periang');
end;
if pilih=3
then
begin
writeln('suka menyendiri');
end;
if pilih=4
then
begin
writeln('berintelektual tinggi ');
end;
if pilih=5
then
begin
writeln('pandai berbicara');
end;
if pilih=6
then
begin
writeln('suka tidur ');
end;
if pilih=7
then
begin
writeln('pandai bergaul dan rajin ');
end;
if pilih=8
then
begin
writeln('banyak rejeki ');
end;
if pilih=9
then
begin
writeln('suka makan ');
end;
if pilih=10
then
begin
writeln('emosional ');
end;
if pilih=11
then
begin
writeln('suka menabung');
end;
if pilih=12
then
begin
writeln('berpendirian teguh');
end;
end.