[Back to MATH SWAG index] [Back to Main SWAG index] [Original]

    {Greatest common divisor}
    Program GCD;

    Var
      x, y : Integer;

    begin
      read(x);

      While x <> 0 do
      begin
        read(y);

        While x <> y do
          if x > y then
            x := x - y
          else
            y := y - x;

        Write(x);
        read(x);

      end;
    end.

[Back to MATH SWAG index] [Back to Main SWAG index] [Original]