ramal nama

program Ramalan_Nama;
uses wincrt;
var
    a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,letak1,letak2,letak3,letak4:string;
    lagi: char;
    karakter: char;  
begin
     a:='Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya';
     b:='Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda';
     c:='Eeehm,kmu paling bisa membuat hati orang jd senang';
     d:='Terlalu banyak fikiran kotor diotakmu';
     e:='Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu';
     f:='Jangan terlalu royal kepada teman atau saudara sob';
     g:='Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain';
     h:='Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia';
     i:='Masa depan,da didepan mata.tentukan pilihanmu';
     j:='Kalo A ya A,B ya B,jangan plin plan jadi orang';
     k:='Jujur,satu kata yang sangat cocok buat anda';
     l:='Jangan suka boong,dosa tw???';
     m:='Tirulah ilmu padi,jangan sombong jd orang';
     n:='Janji itu bwt ditepati,bukan diingkari sob';
     o:='Banyak rezeki,ditabung…boros banget c jd orang???';
     p:='Orang lain dsekitarmu jg punya perasaan,jgn egois';
     q:='Gaya boleh,tpi jo over…';
     r:='Setia banget c jd orang??pertahanin y?';
     s:='Makan apa ce??kmu sabar bangeeet dalam menghadapi semua masalah';
     t:='Jangan trllu memaksakan khendakmu,fkirin ortumu,saudaramu';
     u:='Jangan ragu,cm kmu yg sllu dihatinya';
     v:='Fisik OKE,kpribadiannya dijaga y';
     w:='G bleh minder,msih bnyak yg bsa kmu lakuin';
     x:='Jaga diri,bnyak banget yg sayang sma kmu';
     y:='Jo over klo gi mnja';
     z:='kmu bsa lbih baik klo kmu mw brubah';

     lagi:='y';
     while lagi='y' do
     begin
          clrscr;
          gotoxy(13,3);writeln('$  SELAMAT DATANG DI RAMALAN NAMA PANGGILAN KAMU  $');
          readln(letak1);
          gotoxy(20,4);writeln('              Good lucK');
          readln(letak2);
          gotoxy(20,5);writeln('              JUST GAME');
          readln(letak3);
          gotoxy(20,6);writeln('         gunakan huruf kecil!');
          gotoxy(20,7);writeln(     'PRESS ENTER,lalu ikuti petunjuk SELANJUTNYA');
          readln(letak4);

          begin

               clrscr;
               writeln('MASUKKAN HURUF PERTAMA YANG ADA DALAM NAMA PANGGILANMU');readln(karakter);
               writeln('HASIL PEMBACAAN DARI HURUF YANG KAMU MASUKKAN ADALAH….=');

               if karakter='a' then writeln(a);
               if karakter='b' then writeln(b);
               if karakter='c' then writeln(c);
               if karakter='d' then writeln(d);
               if karakter='e' then writeln(e);
               if karakter='f' then writeln(f);
               if karakter='g' then writeln(g);
               if karakter='h' then writeln(h);
               if karakter='i' then writeln(i);
               if karakter='j' then writeln(j);
               if karakter='k' then writeln(k);
               if karakter='l' then writeln(l);
               if karakter='m' then writeln(m);
               if karakter='n' then writeln(n);
               if karakter='o' then writeln(o);
               if karakter='p' then writeln(p);
               if karakter='q' then writeln(q);
               if karakter='r' then writeln(r);
               if karakter='s' then writeln(s);
               if karakter='t' then writeln(t);
               if karakter='u' then writeln(u);
               if karakter='v' then writeln(v);
               if karakter='w' then writeln(w);
               if karakter='x' then writeln(x);
               if karakter='y' then writeln(y);
               if karakter='z' then writeln(z);

                  writeln;
                  writeln('SELANJUTNYA YANG KEDUA….!');readln(karakter);
                  writeln('HASIL PEMBACAAN DARI HURUF KEDUA YANG KAMU MASUKKAN ADALAH….=');

                  if karakter='a' then writeln(a);
                  if karakter='b' then writeln(b);
                  if karakter='c' then writeln(c);
                  if karakter='d' then writeln(d);
                  if karakter='e' then writeln(e);
                  if karakter='f' then writeln(f);
                  if karakter='g' then writeln(g);
                  if karakter='h' then writeln(h);
                  if karakter='i' then writeln(i);
                  if karakter='j' then writeln(j);
                  if karakter='k' then writeln(k);
                  if karakter='l' then writeln(l);
                  if karakter='m' then writeln(m);
                  if karakter='n' then writeln(n);
                  if karakter='o' then writeln(o);
                  if karakter='p' then writeln(p);
                  if karakter='q' then writeln(q);
                  if karakter='r' then writeln(r);
                  if karakter='s' then writeln(s);
                  if karakter='t' then writeln(t);
                  if karakter='u' then writeln(u);
                  if karakter='v' then writeln(v);
                  if karakter='w' then writeln(w);
                  if karakter='x' then writeln(x);
                  if karakter='y' then writeln(y);
                  if karakter='z' then writeln(z);

                     writeln;
                     writeln('MASUKKAN YANG KETIGA SOB….!');readln(karakter);
                     writeln('HASIL PEMBACAAN DARI HURUF KETIGA DI ATAS ADALAH….=');

                     if karakter='a' then writeln(a);
                     if karakter='b' then writeln(b);
                     if karakter='c' then writeln(c);
                     if karakter='d' then writeln(d);
                     if karakter='e' then writeln(e);
                     if karakter='f' then writeln(f);
                     if karakter='g' then writeln(g);
                     if karakter='h' then writeln(h);
                     if karakter='i' then writeln(i);
                     if karakter='j' then writeln(j);
                     if karakter='k' then writeln(k);
                     if karakter='l' then writeln(l);
                     if karakter='m' then writeln(m);
                     if karakter='n' then writeln(n);
                     if karakter='o' then writeln(o);
                     if karakter='p' then writeln(p);
                     if karakter='q' then writeln(q);
                     if karakter='r' then writeln(r);
                     if karakter='s' then writeln(s);
                     if karakter='t' then writeln(t);
                     if karakter='u' then writeln(u);
                     if karakter='v' then writeln(v);
                     if karakter='w' then writeln(w);
                     if karakter='x' then writeln(x);
                     if karakter='y' then writeln(y);
                     if karakter='z' then writeln(z);

                        writeln;
                        writeln('MASUKKAN YANG KEEMPAT,KALO PENGEN TW LEBIH JAUH LAGI….');readln(karakter);
                        writeln('HASIL PEMBACAAN DARI HURUF KEEMPAT YANG SUDAH KAMU MASUKKAN DI ATAS ADALAH….=');
                        if karakter='a' then writeln(a);
                        if karakter='b' then writeln(b);
                        if karakter='c' then writeln(c);
                        if karakter='d' then writeln(d);
                        if karakter='e' then writeln(e);
                        if karakter='f' then writeln(f);
                        if karakter='g' then writeln(g);
                        if karakter='h' then writeln(h);
                        if karakter='i' then writeln(i);
                        if karakter='j' then writeln(j);
                        if karakter='k' then writeln(k);
                        if karakter='l' then writeln(l);
                        if karakter='m' then writeln(m);
                        if karakter='n' then writeln(n);
                        if karakter='o' then writeln(o);
                        if karakter='p' then writeln(p);
                        if karakter='q' then writeln(q);
                        if karakter='r' then writeln(r);
                        if karakter='s' then writeln(s);
                        if karakter='t' then writeln(t);
                        if karakter='u' then writeln(u);
                        if karakter='v' then writeln(v);
                        if karakter='w' then writeln(w);
                        if karakter='x' then writeln(x);
                        if karakter='y' then writeln(y);
                        if karakter='z' then writeln(z);

                            writeln;
                            writeln('NICH YANG TERAKHIR,MASUKKAN SATU HURUF LAGI');readln(karakter);
                            writeln('HASIL PEMBACAAN DARI HURUF TERAKHIR YANG KAMU MASUKKAN ADALAH….=');

                            if karakter='a' then writeln(a);
                            if karakter='b' then writeln(b);
                            if karakter='c' then writeln(c);
                            if karakter='d' then writeln(d);
                            if karakter='e' then writeln(e);
                            if karakter='f' then writeln(f);
                            if karakter='g' then writeln(g);
                            if karakter='h' then writeln(h);
                            if karakter='i' then writeln(i);
                            if karakter='j' then writeln(j);
                            if karakter='k' then writeln(k);
                            if karakter='l' then writeln(l);
                            if karakter='m' then writeln(m);
                            if karakter='n' then writeln(n);
                            if karakter='o' then writeln(o);
                            if karakter='p' then writeln(p);
                            if karakter='q' then writeln(q);
                            if karakter='r' then writeln(r);
                            if karakter='s' then writeln(s);
                            if karakter='t' then writeln(t);
                            if karakter='u' then writeln(u);
                            if karakter='v' then writeln(v);
                            if karakter='w' then writeln(w);
                            if karakter='x' then writeln(x);
                            if karakter='y' then writeln(y);
                            if karakter='z' then writeln(z);

                            writeln;
                            writeln('Ingin Mengulang?(y/n)');
                            readln(lagi);
                                 if lagi='n' then
                                 clrscr;
                                 gotoxy(5,3);writeln('Thank You');

                end;
       end;
end.