{$codepage UTF8} VAR Monto,TotalPagar:Double; Descuento : Double; Porcentaje : Double; Cond: Boolean; BEGIN Descuento :=0; Porcentaje :=0; Write('Ingrese monto a pagar : '); Readln(Monto); if (Monto >= 1001)then Porcentaje:=2.5/100 else if (Monto>=301) then Porcentaje:=2.0/100 else if (Monto>=201) then Porcentaje:=1.5/100 else if (Monto>=101) then Porcentaje:=1.0/100; Descuento:=Monto*Porcentaje; TotalPagar:=Monto-Descuento; Writeln('Descuento : ',Descuento:10:3); Writeln('Total a Pagar : ',TotalPagar:10:3); END.