Ramal Nama

Program Ramal_Nama;

Uses WinCrt;

procedure Garis;

begin

     writeln('=======================================================================');

end;

var

   nilai1,nilai2,nilai3,nilai4,nilai5,nilai6,nilai7,nilai8,nilai9,nilai10,nilai11,nilai12,nilai13,nilai14,nilai15  : Char;

   nama   : string[15];

begin

     garis;

     gotoxy(20,2);writeln('SELAMAT DATANG DIPROGRAM RAMALAN NAMA');

     garis;

     gotoxy(22,4);writeln('-<-<-- Ketikan Nama Kamu??? --->->-');

     garis;

     readln(nilai1,nilai2,nilai3,nilai4,nilai5,nilai6,nilai7,nilai8,nilai9,nilai10,nilai11,nilai12,nilai13,nilai14,nilai15);

     writeln;

     garis;

     gotoxy(22,10);writeln('arti nama Anda : ');

     writeln;

     garis;

    

     Case nilai1 of

    

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,Anda akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai2 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

     Case nilai3 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai4 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai5 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai6 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai7 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai8 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai9 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai10 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai11 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai12 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai13 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai14 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

          Case nilai15 of

          'a':writeln('Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya');

          'b':writeln('Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda');

          'c':writeln('Eeehm,kmu paling bisa membuat hati orang jd senang');

          'd':writeln('Terlalu banyak fikiran kotor diotakmu');

          'e':writeln('Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu');

          'f':writeln('Jangan terlalu royal kepada teman atau saudara sob');

          'g':writeln('Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain');

          'h':writeln('Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia');

          'i':writeln('Masa depan,da didepan mata.tentukan pilihanmu');

          'j':writeln('Kalo A ya A,B ya B,jangan plin plan jadi orang');

          'k':writeln('Jujur,satu kata yang sangat cocok buat anda');

          'l':writeln('Jangan suka boong,dosa tw???');

          'm':writeln('Tirulah ilmu padi,jangan sombong jd orang');

          'n':writeln('Janji itu bwt ditepati,bukan diingkari sob');

          'o':writeln('Banyak rezeki,ditabung boros banget c jd orang???');

          'p':writeln('Orang lain dsekitarmu jg punya perasaan,jgn egois');

          'q':writeln('Gaya boleh,tpi jo over');

          'r':writeln('Setia banget c jd orang??pertahanin y?');

          's':writeln('Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah');

          't':writeln('Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu');

          'u':writeln('Jangan ragu,cm kmu yg sllu dihatinya');

          'v':writeln('Fisik OKE,kpribadiannya dijaga y');

          'w':writeln('G bleh minder,msih bnyak yg bsa kmu lakuin');

          'x':writeln('Jaga diri,bnyak banget yg sayang sma kmu');

          'y':writeln('Jo over klo gi mnja');

          'z':writeln('kmu bsa lbih baik klo kmu mw brubah');

     end;

     garis;

end.