program dan design

PROGRAM DAFTAR_PENGUNJUNG_KONSER;
USES CRT;
LABEL
Y,N;
CONST
H_TKT=300000;
VAR
N_PMBL,N_BAND,N_KLS :STRING;
J_BL,TH,DSK,TB,UB,UK :REAL;
NO :CHAR;
BEGIN
Y:
CLRSCR;
WRITE('NAMA PEMBELI :');READLN(N_PMBL);
WRITE('NAMA BAND :');READLN(N_BAND);
WRITE('JUMLAH BELI :');READLN(J_BL);
WRITE('NAMA KELAS :');READLN(N_KLS);
TH:=H_TKT*J_BL;
DSK:=0.1*TH;
TB:=TH-DSK;
WRITELN;
WRITELN('* * * * * * * * * * * * * ');
WRITELN('KONSER MUSIK "ONE FOR ALL"');
WRITELN('* * * * * * * * * * * * * ');
WRITELN('NAMA PEMBELI :',N_PMBL);
WRITELN('NAMA BAND :',N_BAND);
WRITELN('NAMA KELAS :',N_KLS);
WRITELN('HARGA TIKET :Rp.',H_TKT:2);
WRITELN('* * * * * * * * * * * * * * ');
WRITELN('TOTAL HARGA :Rp.',TH:2:0);
WRITELN('DISKON :Rp.',DSK:2:0);
WRITELN('TOTAL BAYAR :Rp.',TB:2:0);
WRITELN('* * * * * * * * * * * * * * ');
WRITE('UANG BAYAR :Rp.');READLN(UB);
UK:=UB-TB;
WRITELN('UANG KEMBALI :Rp.',UK:2:0);
WRITELN('* * * * * * * * * * * * * * ');
WRITE('INGIN INPUT LAGI [Y/N]:');READLN(NO);
IF NO= 'Y' THEN
GOTO Y
ELSE
GOTO N;
READLN;
N:
END.