Найти НОД трех заданных натуральных чисел - Free Pascal

program test;
 
  function GCD(m, n: integer): integer;
  var
    k: integer; {множитель}
    Evens: integer; {чётность чисел m и n}
  begin
    k := 1;
    repeat
       if (n = 0) or (m = 0) then
      begin
        GCD := k * (n + m);
        Break;
      end;
      if (n = m) then
      begin
        GCD := k * n;
        Break;
      end;
      if (n = 1) or (m = 1) then
      begin
        GCD := k * 1;
        Break;
      end;
      Evens := 0;
      if Odd(n) then
        Evens := 1;
      if Odd(m) then
        Evens := Evens + 2;
      case Evens of
        0:
        begin
          k := k * 2;
          m := m div 2;
          n := n div 2;
        end;
        1:
        begin
          m := m div 2;
        end;
        2:
        begin
          n := n div 2;
        end;
        3:
        begin
          if n > m then
            n := (n - m) div 2
          else
            m := (m - n) div 2;
        end;
      end;
    until False;
  end;
 
var
  a, b, c: integer;
begin
  a := 48;
  b := 64;
  c := 910;
  writeln(GCD(GCD(a, b),c));
end.