ANALISIS DE SISTEMAS

entero area,p,e,c
inicio
escriba " ingresar area del terreno"
lea area
si (area<1000000) o (area=1000000) entonces
p<-(area/100)*50
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para pinos es",p
e<-(area/100)*30
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para eucalipto es",e
c<-(area/100)*20
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para cedro es ",c
sino
si area >1000000 entonces
p<-(area/100)*70
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para pino es ",p
e<-(area/100)*20
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para eucalipto es",e
c<-(area/100)*10
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para cedro es",c
sino
escriba " el area que ingreso es muy baja"
fin si
fin si
fin