program pascal untuk hotel

program discount;
uses crt;
var lm, hg, jml, total : real;
    ket, diskon : string;
begin
clrscr;
     write('lama menginap :');readln (lm);
     write('harga kamar:');readln(hg);
     jml:=lm*hg;

     if (jml >300000)  then
     begin
      ket:='diskon 30%';
      total:=jml-(jml*0.3);
     end
     else
     if ((jml>200000) and (jml<=300000)) then
     begin
      ket:='diskon 20%';
      total:=jml-(jml*0.2);
     end
     else
     if ((jml>100000) and (jml<=200000)) then
     begin

      ket:='diskon 10%';
      total:=jml-(jml*0.1);
     end
     else
     begin

     ket:='tidak dapat diskon';
     total:=jml;
end;
    writeln('total bayar :',total:8:2);
    writeln('ket :',ket);
    readln;
end.