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