function PGCD(a, b: Integer): Integer; begin if b = 0 then Result := a else Result := PGCD(b, a mod b); end;