Para seguir este modelo básico de programación no es necesario usar Python. cualquier lenguaje de programación puede servir.

3. Determinar el MCD de dos números a y b

{en Delphi v7-Pascal}

var
n,m,temp,resto,a,b:integer;
begin
a:=strtoint(Edit1.Text);b:=strtoint(Edit2.Text);

if (a<=0)then begin
ShowMessage('Valor de a no debe ser cero');
end;

if (b<=0)then begin
ShowMessage('Valor de b no debe ser cero');
end;

if (a<b) then begin
tem:=a;a:=b;b:=temp;
end;

m:=a; b:=n; resto:=m Mod n;


while (resto <> 0) do
begin
m:=n; n:=resto; resto:= m Mod n;
end;

Label1.Caption:= 'El MCD es:' + inttostr(n);

end