CLS
INPUT "introduce largo"; l
INPUT "introduce ancho"; a
INPUT "introduce precio por metro cuardrado"; p
t = l * a
p = t * p
PRINT "el terreno te sale por"; p
IF t > 1000 THEN
d = p * .25
pn = p - d
ELSEIF t > 500 THEN
        d = p * .17
        pn = p - d
        ELSEIF t > 400 THEN

                d = p * .1
                pn = p - d
                END IF
PRINT "Pero como eres tu te sale por"; pn
END