Solução em Pascal do Problema 12

program AlgoritmoDeMDC;

var a,b,r: integer;

begin
 readLn(a, b);
 write('MDC_(', a, ',', b, ')=_');
 repeat
  r:=a mob b;
  a:=b;
  b:=r
 until r=0;
 writeLn(a)
end.