CLS
PRINT "Elabore un algorito que calcule el precio de un terreno"
INPUT "Diga el largo del terreno", A1
INPUT "Diga el ancho del terreno", B1
INPUT "Diga el precio por metro cuadrado", Z1
LET D1 = A1 * B1
LET K1 = D1 * Z1
PRINT "El terreno tiene", D1
PRINT "El terreno cuesta", K1
IF D1 >= 400 THEN
IF D1 < 500 THEN
PRINT "Se hace un descuento del 10%"
LET H1 = K1 * .1
PRINT "El nuevo precio seria", H1
END IF
END IF
IF D1 >= 500 THEN
IF D1 < 1000 THEN
PRINT "Se hace un descuento de 17%"
LET J1 = K1 * .17
PRINT "El nuevo precio seria", J1
END IF
END IF
IF D1 >= 1000 THEN
PRINT "Se hace un descuento del 25%"
LET S1 = K1 * .25
PRINT "El Descuento seria de:", S1
LET Y1 = K1 - s1
PRINT "El Precio final seria de:", Y1
END IF