program pelayanan_salon

program salon;
uses crt;
var
        nama:string;
        paket,harga,subtotal,kembalian,jumlahbayar,diskon,jumlahuang:real;
begin
clrscr;
        writeln('PROGRAM SALON');
        writeln('=============');
        writeln('Jenis Perawatan');
        writeln('Paket 1 (Lulur, Masker Badan, Totok Wajah)');
        writeln('Paket 2 (Facial, Totok Wajah)');
        Writeln('Paket 3 (Lulur, Masker Badan, Timung)');
        writeln('Paket 4 (Lulur, Timung)');
        writeln('Paket 5 (Lulur, Totok Wajah, Creambath)');
        writeln('==========================================');
        write('Silahkan Pilih Paket yang anda inginkan: '); readln(paket);
        if paket=1 then
        begin
                harga:=1000000;
                writeln('Paket 1 (Lulur, Masker Badan, Totok Wajah)');
                writeln('Harga: Rp1500000');
        end
        else
        if paket=2 then
        begin
                harga:=2500000;
                writeln('Paket 2 (Facial, Totok Wajah)');
                writeln('Harga: Rp1000000');
        end
        else
        if paket=3 then
        begin
                harga:=3500000;
                writeln('Paket 3 (Lulur, Masker Badan, Timung)');
                writeln('Harga: Rp2200000');
        end
        else
        if paket=4 then
        begin
                harga:=720000;
                writeln('Paket 4 (Lulur, Timung)');
                writeln('Harga: Rp1500000');
        end
        else
        if paket=5 then
        begin
                harga:=800000;
                writeln('Paket 5 (Lulur, Totok Wajah, Creambath)');
                writeln('Harga: Rp1300000');
        end;
writeln('Total Pembayaran : Rp. ',harga:12:0);
if harga>=300000 then
begin
        diskon:=20/100*harga;
        writeln ('Diskon           : Rp.',diskon:12:0);
end;
subtotal:=harga-diskon;
writeln('Subtotal: Rp. ', subtotal:12:0);
Writeln('==================================');
write('Jumlah Bayar: Rp. ');readln(jumlahbayar);
kembalian:=jumlahbayar-subtotal;
writeln('Kembalian: Rp. ',kembalian:12:0);
writeln('Terimakasih Telah Berkunjung.......');
readln;
end.