Pascal/Turbo Pascal - Ayuda!! Es importante!!

Hola estoy haciendo una practica de pascal y quiero hacer un programa para calcular el Minimo Comun Multiplo y el Maximo Comun Divisor.
Alguien me podría decir como los Hago??
Muchisimas gracias por adelantado!!
Un saludo

Basate en este algoritmo de euclides para calcularlo, recomendando la
recursividad para implementarlo:

mcd (a,b) = b, si (a mod b) == 0
mcd (b, (a mod b)), si no

Y este otro de Stanley Gill para el minimo:
mcm (a,b)=(a*b)/mcd(a,b)

Un saludo.

Hola muchas gracias pero necesito hacerlo con algo bastante mas sencillo, usando "If"´s y con "While"´s mira este ejemplo.

Procedure mcd (x,y,z:integer); {Con este procediemiento se hace el}
Var {Maximo Comun Divisor de tres numeros}
i: integer;
Begin
If (x < z) And (x < Y) Then
i:= x
Else
If z < y Then
i:= z
else
i:= y;
while ((x mod i = 0) and (z mod i = 0) and (y mod i = 0)) do
i:= i-1;
Writeln (i);
end;

function mcd (a,b : Integer) : Integer;
begin
if (a mod b = 0) then
mcd := b
else
mcd:= mcd(a, a mod b)
end;

NO ENCUENTRO LA DIFICULTAD, PERO CUALQUIER FUNCION RECURSIVA SE PUEDE RESOLVER CON BUCLES WHILE, PERO ES MENOS COMPLEJO ASI. UN SALUDO

Gracias!!
Ya lo siento por ser tan pelma, pero y con un procedimiento, como se haría??
Muchisimas gracias por adelantado.
Kerman!!