Soy súper principiante en DELPHI y ahora tengo un problema donde necesito obtener un 10% de descuento en compras superiores a $100 y un 20% de descuento en compras superiores a $200 300
var
dinero: doble;
oro: entero;
comienzo
oro: = StrtoInt(Edit1.Text);
p>
si oro gt; 500 entonces
dinero:= oro * 0.5
si no, si oro gt 400 entonces
dinero:= oro * 0.6
si no es oro gt 300 entonces
dinero ：= oro * 0.7
si no es oro gt 200 entonces
dinero := oro * 0,8
si no, si el oro gt 100, entonces
dinero := oro * 0,9
más
dinero := oro * 1;
Label2.Caption:= FloatToStr(dinero);
end;