maximo::(Integer,Integer)->Integer
maximo(x,z)=if x>z then x
else z

par::Integer->Bool
par x = if(mod x 2)==0
then True
else False

max3::(Integer,Integer,Integer)->Integer
max3(x,y,z)=if x>z && x>y then x
else if z>y then z
else y

sgn::Integer->Integer
sgn x = if x>0 then 1
else if x==0 then 0
else (-1)

abso::Integer->Integer
abso x = abs(x)

bisiesto::Integer->Bool
bisiesto x = if (mod x 4)==0 && (mod x 100)>0
then True
else
if (mod x 400)==0 then True
else False

lados_triangulos::(Float,Float,Float)->Bool

lados_triangulos(x,y,z) =if x>0 && y>0 && z>0 then 
if (x+y)>z && (x+z)>y && (y+z)>x then True
else False
else False