program Upah_Karyawan;
var
    tarif, charge, total_tagihan, diskon : real;
    gol, umur, hari : integer;
    bpjs : string;

begin

    writeln('Masukan golongan kamar : ');
    readln(gol);

    writeln('Masukan lama penginapan : ');
    readln(hari);

    writeln('Masukan umur : ');
    readln(umur);

    writeln('Pengguna BPJS ? (Ya / Tidak)');
    readln(bpjs);

    case gol of
    1 :  tarif := 600000;
    2 :  tarif := 400000;
    3 :  tarif := 200000;
    end;

    if umur <= 5 then
        charge := 1000000
    else if umur <= 16 then
        charge := 700000
    else
        charge := 500000;

    total_tagihan := (tarif * hari) + charge;

    if bpjs = 'Ya' then
        diskon := total_tagihan * 0.3
    else
        diskon := 0;

    total_tagihan := total_tagihan - diskon;

    writeln('Total Tagihan : ', total_tagihan:5:0);

    readln();

end.