algoritmo para calculo de areas y perimetros

Proceso Areas_perimetros
Definir i,f Como Entero;
Definir area,area1,base,altura,perimetro,lado,l2,diagmy,diagmn,basemy,basemn Como Real;
Para i<-1 Hasta 6 Con Paso 1 Hacer
Escribir "FIGURASGEOMETRICAS:";
Escribir "1.- TRIANGULO";
Escribir "2.- CUADRADO";
Escribir "3.- RECTANGULO";
Escribir "4.- ROMBO";
Escribir "5.- TRAPECIO";
Escribir "SELECCIONE UNA FIGURA:";
leer f;
Sif=1 Entonces
Escribir "TRIANGULO...";
Escribir "Para calcular el ÁREA, por favor";
Escribir "Ingrese la báse de su triangulo:";
Leer base;
Escribir "Ahora, ingrese su altura:";
Leeraltura;
area<-(base*altura)/2;
Escribir "El área de su figura es: ",area;
Escribir "Calculemos el PERIMETRO. Ingrese un lado del triangulo:";
Leer lado;
perimetro<-lado*2+base;Escribir "El perimetro de su figura es: ",perimetro;
FinSi
Si f=2 Entonces
Escribir "CUADRADO...";
Escribir "Para calcular el ÁREA, por favor";
Escribir "Ingrese como dato unico uno de loslados de su cuadrado:";
Leer lado;
area<-lado^2;
Escribir "El área de su figura es: ",area;
Escribir "Calculando el PERIMETRO...";
perimetro<-4*lado;
Escribir "El perimetro de sufigura es: ",perimetro;
FinSi
Si F=3 Entonces
Escribir "RECTANGULO...";
Escribir "Para calcular el ÁREA de su figura, por favor";
Escribir "Ingrese la báse de su rectangulo";
Leer base;Escribir "Ahora, ingrese la altura";
Leer altura;
area<-base*altura;
Escribir "El área es: ",area;
Escribir "Calculo del PERIMETRO...";
perimetro<-2*base+2*altura;
Escribir "Elperimetro es: ", perimetro;
FinSi
Si f=4 Entonces
Escribir "ROMBO...";
Escribir "Para calcular el ÁREA, por favor";
Escribir "Ingrese la diagonal Mayor:";
Leer diagmy;
Escribir"Ahora, ingrese la diagonal Menor:";
Leer diagmn;
area<-(diagmy*diagmn)/2;
Escribir "El área es: ",area;
Escribir "Para calcular el PERIMETRO de su figura, por favor";
Escribir "ingrese...