Algoritmia - programa que permita ingresar tres valores enteros que corresponda a los lados de un triangulo

seguir = 1

mientras seguir

    leer(c1) //lee el cateto 1

    si c1 == 0: //si el cateto 1 es cero salir

        seguir = 0

    sino

    	leer(c2) //lee el cateto 2

    	leer(h) //lee la hipotenusa

       	si h**2 == (c1**2+c2**2):

        	area = (c1*c2) / 2.0

        	perim = c1+c2+h

        	imprimir('Area = ',area)

        	imprimir('Perimetro = ',perim)

	fin-si

    fin-si

fin-mientras

seguir = 1

mientras seguir

    leer(c1) //lee el primer entero

    si c1 == 0: //si el cateto 1 es cero salir

        seguir = 0

    sino

    	leer(c2) //lee el segundo entero

    	leer(h) //lee el tercer entero

       	si h**2 == (c1**2+c2**2) :

        	area = (c1*c2) / 2.0

        	perim = c1+c2+h

        	imprimir('Area = ',area)

        	imprimir('Perimetro = ',perim)

         sino si c1**2==(h**2+c2**2):

               area = (h*c2) / 2.0

        	perim = c1+c2+h

        	imprimir('Area = ',area)

        	imprimir('Perimetro = ',perim)

       sino si c21**2==(h**2+c1**2):

               area = (h*c1) / 2.0

        	perim = c1+c2+h

        	imprimir('Area = ',area)

        	imprimir('Perimetro = ',perim)

         sino

              imprimir('El triangulo no es rectangulo')

      fin-si

    fin-si

fin-mientras