Pascal/Turbo Pascal - Muy importante

Hola!
Es para ver si me pueden ayudar dandome algunas ideas de como puedo haces estos programas en Turbo Pascal.
Los programas son los siguientes:
1. Denote en un programa el mcd (x,y). El sistema hecho general mcd(x,y)=mcd (y,x mod y)
puede ser aplicado repentinamente (hasta que el valor divida el primero) para encontrar el mcd (x,y)
cuando esto sucede el segundo valor es el mcd. Ej: mcd (36,25) = mcd (15,6) = mcd (6,3) = 3

2. Escriba un programa que imprima la serie de numeros de fibenacci hasta el numero n
Ej: n=12 11 2 3 5 8 13 21 34 55 89 144
Esto es fib(x)= fib(1)=1
fib(2)=2
fib(n>2)=fib (n-1) + fib(n-1)

3. Programa que devuelva la matriz diagonal de una matriz A=mxn

Ojala me puedan ayudar lo mas pronto posible.

Saludos,

Maria.

Para la serie pedida aqui hay una funcion recursiva. En cuanto al mcd hay una respuesta en el foro respecto al programa.
Al igual que ese, éste no está exento de errores, asi que puedes verificar que es correcto.(los errores probables pueden estar en las condiciones).
Hasta luego.
/************************************************/

function fib(n:integer);
begin
if (n>=0) and (n<=2) then
fib:=n
then
fib:=fib(n-1)+fib(n-2)
end;

/************************************************/