program dan design

PROGRAM DAFTAR_PENGUNJUNG_HOTEL;
USES CRT;
LABEL
Y,N;
VAR
N_INAP,N_KMR,N_KLS :STRING;
LM :INTEGER;
HK,TH,DSK,TB,UB,UK :REAL;
K_KLS,K_KMR,NO :CHAR;
BEGIN
Y:
CLRSCR;
WRITE('NAMA PENGINAP :');READLN(N_INAP);
WRITE('KODE KAMAR [S/M/A] :');READLN(K_KMR);
WRITE('KODE KELAS [1/2] :');READLN(K_KLS);
WRITE('LAMA MENGINAP :');READLN(LM);
IF K_KLS='1' THEN N_KLS:='EKSLUSIF' ELSE N_KLS:='VIP';
IF LM>10 THEN DSK:=0.1 ELSE DSK:=0;
IF K_KMR= 'S' THEN
BEGIN
N_KMR:='SAKURA';
HK:=500000;
END
ELSE IF K_KMR= 'M' THEN
BEGIN
N_KMR:='MAWAR';
HK:=600000;
END
ELSE
BEGIN
N_KMR:='ANGGREK';
HK:=700000;
END;
TH:=HK*LM;
DSK:=0.1*TH;
TB:=TH-DSK;
WRITELN('******************************************');
WRITELN('DAFTAR PENGUNJUNG HOTEL "BINTANG TOEDJOEH"');
WRITELN('******************************************');
WRITELN('NAMA PENGINAP :',N_INAP);
WRITELN('KODE KAMAR [S/M/A] :',K_KMR);
WRITELN('NAMA KAMAR :',N_KMR);
WRITELN('KODE KELAS [1/2] :',K_KLS);
WRITELN('HARGA KAMAR :Rp.',HK:2:0);
WRITELN('LAMA MENINAP :',LM);
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.