PROGRAM "SULAP" TE PE WE (TPW)

asalamualaikum....

Sebenarnya ini tugas sekolah ane, tugas dari guru bahasa pemrograman, ... denger judulnya aja mungkin kaga percaya, tapi konsep awalnya cuma nyontek dari buku eSDe "hahahaha".. GA USAH BANYAK BACOT LANGSUNG AJA CEKIDOTTT..!!!!.

PROGRAM aristaarmajaya;
USES WINCRT;
VAR TOT : INTEGER;
    START, coba, a, b, c, d :string;
    label
    awal, akhir ;
CONST
e=1;
f=2;
g=4;
h=8;


BEGIN
 WRITELN('                Arista.armajaya.blogspot.com');
 WRITELN('========================================================');
 WRITELN(' ');
 WRITE('PIKIRKAN SATU BUAH ANGKA 1 SAMPAI 15. ANDA SIAP (y/t) ? : ');READLN(START);
 BEGIN
 awal:
 CLRSCR;
 WRITELN('                Arista.armajaya.blogspot.com');
 WRITELN('========================================================');
 WRITELN('____________________________________');
 WRITELN('| 1 | 3 | 5 | 7 | 9 | 11 | 13 | 15 |');
 WRITELN(' ');
 WRITE('APAKAH ANGKA ANDA ADA DIATAS (y/t) : ');READLN(a);

 CLRSCR;
 WRITELN('                Arista.armajaya.blogspot.com');
 WRITELN('========================================================');
 WRITELN('____________________________________');
 WRITELN('| 2 | 3 | 6 | 7 | 10 | 11 | 14 | 15 |');
 WRITELN(' ');
 WRITE('APAKAH ANGKA ANDA ADA DIATAS (y/t) : ');READLN(b);

 CLRSCR;
 WRITELN('                Arista.armajaya.blogspot.com');
 WRITELN('========================================================');
 WRITELN('____________________________________');
 WRITELN('| 4 | 5 | 6 | 7 | 12 | 13 | 14 | 15 |');
 WRITELN(' ');
 WRITE('APAKAH ANGKA ANDA ADA DIATAS (y/t) : ');READLN(c);

 CLRSCR;
WRITELN('                Arista.armajaya.blogspot.com');
 WRITELN('========================================================');
 WRITELN('_______________________________________');
 WRITELN('| 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 |');
 WRITELN(' ');
 WRITE('APAKAH ANGKA ANDA ADA DIATAS (y/t) : ');READLN(d);


 if a=('y') then
 begin
 tot:=0+e;
 end;
 if b=('y') then
 begin
 tot:=tot+f;
 end;
 if c=('y') then
 begin
 tot:=tot+g;
 end;
 if d=('y') then
 begin
 tot:=tot+h;
 end;

 END;


 CLRSCR;

 WRITELN('ANGKA ANDA ADALAH = ', tot);

 write('ingin coba lagi(y/t) ? :');readln(coba);
 if coba ='y' then goto awal else goto akhir;
 akhir:
 clrscr;
 writeln('*********************@@@@@@@*********************');
 writeln('    ## Terima kasih anda telah mencoba ini ##    ');
 writeln(' untuk kritik dan saran silahkan kirim e-mail ke ');
 writeln('__________  arista.armajaya@yahoo.com ___________');
 
 END.

calo mau copas silahkan tapi tinggalin komen dong.... (//-_-)
salam bawah tanah \m/ (lohhh!!!)
wasalam...