Data diri

Program Data_diri;
uses crt;
Var
pilihan:string;
begin
clrscr;
repeat
writeln (‘Assalamualaikum’);
writeln (’1. Perkenalan’);
writeln (’2. sifat’);
writeln (’3. family’)
writeln (’4. sahabat’);
writeln (’5. teman’);
writeln (’6. keluar’);
write (‘Pilih : ‘);readln (pilihan);
case pilihan of
1:begin
writeln (‘Perkenalkan Nama saya Diphda antaresada. Lahir di Cirebon Tanggal 16 Oktober 1990.  Sekarang lagi mengadu nasib di tanah sunda Dayeuh Kolot,IT. Telkom. Untuk sementara masih Jojose:= jomblo-jomblo sengsara. CiUm (ciri umum) diphda := Wajah pas-pasan,Prut buncit,jarang olga,Jarang mandi,kesiangan trus bangunnya,telat kulyah mulu’);
end;
2:begin
writeln (‘Orangnya tuh: ‘);
writeln (’1. Penggila dota,kalo uda maen dota tu uda lupa segalanya’);
writeln (’2. Penggila cewe,Gag munafik sebagai cowo’);
writeln (’3. Malas buat namanya belajar’);
writeln (’4. pelupa’);
writeln (’5. ceroboh’);
end;
3:begin
writeln (’1. papih’);
writeln (’2. ibu’);
writeln (’3. mba ria’);
writeln (’4. mas bayu’);
writeln (’5. mba indah’);
writeln (’6. mba pinta’);
writeln (’7. ega’);
writeln (’8. pika’);
writeln (‘dll.’);
end;
4:begin
writeln (’1. Fim alias usop’);
writeln (’2. faqih alias zoro’);
writeln (’3. arie alias luffy’);
writeln (’4. meja alias chooper’);
end;
5.begin
writeln (’1. Maba n miba it.telkom 08′);
writeln (’2. darul ilmi family’);
writeln (’3. rescene’);
writeln (’4. alumni smansa 08′);
writeln (’5. alumni spensa 05′);
writeln (’6. alumni sd. kramat2 02′);
writeln (‘dll’);
end;
end;
until (pilihan=6);
readln;
end.

Tinggalkan sebuah Komentar

Belum ada komentar.

Komentar RSS Lacak Balik URI Pengenal