Procedure Suma(a,b:integer);
 Begin
   Suma:=a+b
 End;
 
Begin 
  Writeln('La suma de 4 y 4 es : ',suma(4,4)) 
End.

Function potencia(a,b:double);
Begin
  potencia:=a**b;
End;   
          
Begin                                    
  Writeln(potencia(2,4))
End. 

Function Mayor(a,b:integer):integer;
Begin
  if a>b then Mayor:=a
         else Mayor:=b
End;
                  
Begin
  Writeln(Mayor(10,2))
End.                                

Escribir una función que permita hallar el máximo común divisor (MCD) de dos números enteros.

Escribir una función que permita hallar el mínimo común múltiplo (MCM) de dos números enteros.

Escriba una función que invierta los dígitos de un número entero. Por ejemplo, el número 3471 debe ser devuelto por la función como 1743.

Escribir una función que permita calcular la distancia entre dos puntos (x1,y1) y (x2,y2). Los números de los puntos y el valor devuelto deben ser de tipo extended.

Escribir un procedimiento para convertir coordenadas polares a rectangulares. Usar las siguientes formulas:

x=r*cos(a)

y=r*sin(a)

Escribir una función que permita determinar si una cadena de caracteres es un palíndromo. Un palíndromo es un texto que se escribe igual al revés. Ejemplo radar.

Hacer una función que permita calcular la media aritmética, de los números de un arreglo de enteros y reales (extended). Usar sobrecarga (overload) de funciones y procedimientos con arreglos abiertos (open array).

Hacer una función que permita hallar el mayor valor númerico de un arreglo de enteros o reales. Usar sobrecarga (overload) de funciones y procedimientos con arreglos abiertos (open array).

Escribir una función recursiva que permita hallar el máximo común divisor de dos números enteros.

Escribir una función recursiva que invierta los dígitos de un número entero. Por ejemplo el número 3471 debe ser devuelto por la función como 1743.

Hacer una función recursiva que permita sumar los números enteros de un arreglo.

Hacer una función recursiva que permita multiplicar los números enteros de un arreglo.

Hacer una función recursiva que permita sumar los dígitos de un número entero. Ejemplo: 14253, la función debe devolver 15. 1+4+2+5+3=15.

Escriba una unidad llamada Estd (Estadística), que contenga la siguientes funciones :

---------------------------------------------------------------------------------------
Media aritmética :
---------------------------------------------------------------------------------------
Media armónica :
---------------------------------------------------------------------------------------
Medía geométrica :
---------------------------------------------------------------------------------------
Mediana :	Se ordena de menor a mayor. Si n es impar, entonces se usa :   Si n es par, entonces se usa :
---------------------------------------------------------------------------------------
Moda :	Si no hay datos repetidos debe devolver 0.
---------------------------------------------------------------------------------------
Varianza :
---------------------------------------------------------------------------------------
Desviación estándar :

Las funciones deben permitir trabajar con arreglos de tipo entero y real.