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.
