function nwd(a, b: Integer): Integer;
var
  tmp: Integer;
begin
  repeat
    tmp := a mod b;
    a := b;
    b := tmp;
  until b = 0;
  nwd := a;
end;