Pseudocódigo 24

Una abuela contrata a un técnico en sistemas para calcular el área de un terreno el cual va a ser heredado, pidiendo el largo, el ancho y el precio por m^2 del terreno, si el área del terreno es mayor a 400 m^2 este tiene un descuento del 10%, imprimir el área del terreno el precio neto y el precio total.

Proceso Precio_De_un_Terreno    //Cruz Sosa Aldo Ing.Biomedica "B"
    Definir largo,ancho,Cm2,subtotal,desc,Cneto,area Como Real;
    Escribir " Cual Es El Largo Del Terreno? ";
    leer largo;
    Escribir " Cual Es El Ancho Del Terreno? ";
    Leer ancho;
    area<-largo*ancho;
    Escribir " El Area Del Terreno Es: ",area;
    Escribir  " Cuanto cuesta el metro Cuadrado? ";
    leer Cm2;
    subtotal<-area*Cm2;
    Escribir " El Costo Del Terreno Es: ",subtotal;
   
Si area>=400 Entonces
        desc<-subtotal*0.10;
        Escribir " El Terreno Tiene Un Descuento De: ",desc;
    SiNo
      
        Escribir " El Terreno Tiene Un Precio De: ",subtotal;
    FinSi
   
    Si area>=400 Entonces
        Cneto<-subtotal-desc;
        Escribir " El Costo Neto Del Terreno Es: ",Cneto;
    SiNo
      
    FinSi
FinProceso